Регистрация
helpmepleasehelp1
23.03.2023 18:19
Информатика
Есть ответ 👍

Вывести трехзначные числа, которые четны и кратны 25. подсчитать их сумму. ( паскаль )

147
239
Посмотреть ответы 2

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

vadimkakuz200
vadimkakuz200
4,4(24 оценок)
Var i: integer; begin; for i: =100 to 999 do if (i mod 2=0) and (i mod 25=0) then writeln(i); end.
MrLukz228
MrLukz228
4,6(96 оценок)

begin

  var k3 : = readarrinteger('вводите', readinteger('n='));

  var (sum, n) : = (0, 0);

  for var i : = 0 to k3.length - 1 do

  begin

    if (k3[i] > 0) then  

    begin

      n += 1;

      sum += k3[i];

    end;

  end;  

  println('sum =', sum, 'n =', n);

end.

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