Регистрация
моллск
08.04.2021 15:35
Информатика
Есть ответ 👍

Вообще не понимаю в программах

215
498
Посмотреть ответы 2

Ответы на вопрос:

azizbekboboniyozov
azizbekboboniyozov
4,4(83 оценок)

//pascalabc.net

1)

var

  num, sum: integer;

begin

  sum : = 0;

  repeat

    read(num);

    if (num mod 4 = 0) and (num div 1000 = 0) and (num div 100 < > 0) then

      sum : = sum + num;

  until (num = 0);

  write(sum);

end.

2)

var

  num, max, n, i: integer;

begin

  max : = 0;

  read(n);

  for i : = 1 to n do

  begin

    read(num);

    if (num mod 10 = 3) and (num > max) then

      max : = num;

  end;

  write(max);

end.

педро228
педро228
4,7(33 оценок)
Считаем 4(-3+1+1)=-4 (х) 4(-4+3-2)=-12 (у) чтобы вернуттся в исходную точку нужно поменять знаки. т.е. ответ: 4)(4,12)

Популярно: Информатика