напишите программу которая в последовательности целых чисел

Ответ от Байтаков Жаслан[гуру]
var i,n,k: integer;
s: longint;
begin
s :=0; k :=0;
repeat
readln ( i );
s:=s+i;
if ( i <> 0) and ( i mod 2=0) and ( i mod 5=0) then k:=k+1;
until i=0;
writeln ('s= ',s, ' ', 'k= ',k);
end.

Ответ от ?????? ????r?????u[гуру]
да не за что. такую простую фигню не пишу

Ответ от Лиля Калиде[гуру]
За тебя делать не буду.
Но чуток подсказываю:
числа по модулю меньше 30000, значит брать для них тип integer.
количество меньше 1000 - для счётчика тоже достаточно integer.
А вот для суммы бери longint, ато может в интеджер не поместиться
Ну и крути цикл по ходу набирая нужное

Ответ от UaKaah[гуру]
Ну такой наивный маленький любитель "халявы"!
Двушку приличнного пива в руки (и двести эр на карман на всякий случай) - и к ближайшему программеру. Тот за полчаса - всё нарисует, особо не напрягаясь.

Ответ от 3 ответа[гуру]