Напишите программу, которая в последовательности целых чисел определяет их сумму и количество четных чисел, кратных 5. программа получает на вход целые числа, количество введенных чисел неизвестно, последовательность чисел заканчивается число 0(0-признак окончания ввода, не входит в последовательность , , на паскале
Loader
1
17.08.2019 05:00
1
Другие вопросы по теме Информатика
Morkvap5
08.11.2020 01:46
daryamoskovskay
08.11.2020 01:47
95731
08.11.2020 01:48
маря39
08.11.2020 01:49
kulmameteva
08.11.2020 01:57
Вероника8381
17.04.2021 19:53
Tanyams
17.04.2021 19:55
Vladisimus
17.04.2021 19:58
nastya01102016
17.04.2021 19:58
Популярные вопросы
- . 1. Запишите слова последнего ряда и обозначьте их морфемный состав. 2. Укажите...
3 - Запишіть усі натуральні числа, що розташовані між числами 149 і 156 та діляться...
3 - Определи разряды Имен существительных...
2 - 125*(72*8)= 40*(496*25)= 12p-14k+6t= 716*52-52*616=...
1 - Інформація про Священні релігії ісламуочень...
1 - 3. Какие объекты природы можно изучать в том месте, где они живут? Почему?...
2 - Реши столбиком пример 120/60...
2 - 8. Реши задачу.На покупку 9 билетов вкупейный вагон для учеников, путе-шествующих...
3 - 9. Решите уравнение: а) 2x2 = 5x; (можно все 4)...
2 - 1)3 1/9:2 1/3-2 5/6=2)1 5/7-4 3/13:1 19/26=3)10 16/17:8 5/11+1 2/3=4)47/48:3...
1
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.