ШТО x 696 отзывов
Создание и редактирование растровых изображений
ний
Рассмотри рисунок и определи геометрические фигуры, с которых он создан.
Безымянный - Paint
х
Главная
Вма
Буфер Иоображение Инструменты Кисти
обмена"
Фигуры Топша
Цвета​

ну, вообще-то, в задании записан алгоритм только на одном языке. Этот алгоритм находит найбольшее значение израсходованных за телефон денег за день и выводит номер этого дня  (то есть отвечает на вопрос: "в какой день недели я потратил больше всего денег на телефон?"

На экран будет выведено "4", потому что в этот день было потрачено 80 "денег" - наибольшее значение за неделю.

На Бейсике программа будет выглядеть так:

DIM Day(7) AS INTEGER
Day(1)=79
Day(2)=25
Day(3)=67
Day(4)=80
Day(5)=63
Day(6)=17
Day(7)=68
m=Day(1)
d=1
FOR i=2 TO 7
IF Day(i)>m THEN
m=Day(i)
d=i
END IF
NEXT i
PRINT d
END

На Паскале:

Var
i, m, d: integer
Day: array[1..7] of integer
begin
  Day[1]=79;
  Day[2]=25;
  Day[3]=67;
  Day[4]=80;
  Day[5]=63;
  Day[6]=17;
  Day[7]=68;
  m=Day[1];
  d=1;
  for i:=2 to 7 do
  begin
    if Day[i]>m then
      begin
        m:=Day[i];
        d:=i
      end
  end
  writeln(d);
end.

var a,b,c,s:integer;

begin

read(a);

read(b);

read(c);

s:=(a+b+c) mod 3       mod вробная часть от деления

end;

var post,Bes:real;

begin

read(post);

Bes:=post-100;    (кг)=(рост(см) - 100

end;

var m,n,k:integer;

begin

read(m);

read(n);

read(k);

o:=m*2+n*0+k*1

end;

var x:integer;

begin

read(x);

if x mod 2 =0 then write('чот') else write('нечет');

end;

var x:integer;

begin

read(x);

if x mod 10=7 then write('на конце 7') else write('не 7');

end;

///write(x) выводит значение переменой;