Склавиатуры вводится последовательность чисел до первого кратного 5. вычислить: а) сумму всех введенных чисел до первого кратного 5 б) сумму всех введенных чисел, включая первое кратное 5все это надо написать на языке паскаль
Bdof72005
2
05.05.2019 15:46
0
Другие вопросы по теме Информатика
Nastia200704
08.02.2021 19:06
юлия30885
06.10.2019 21:01
varvara92
06.10.2019 21:01
sirghiina
06.10.2019 21:01
krasnov595egr
24.05.2021 12:38
dashanarmania
24.05.2021 12:38
Vlados22fhgff
24.05.2021 12:33
kulikovamascha
24.05.2021 12:30
alina067
24.05.2021 12:26
Популярные вопросы
- 4. Дана геометрическая прогрессия 5, 10, 20, 40, ... . 1) Запиши...
3 - Сторона АВ треугольника ABC равна 31 см, сторона АС на 4 см больше...
1 - Герой нашего времени это роман или повестьРебят нужен ответ на...
2 - Задание № 4. Выпиши распространенные и нераспространенные предложения...
2 - Почему капля воды открывается от крана?...
1 - В каком году был утверждён герб края?...
3 - Здравствуйте английский 3 класс...
3 - Найдите на чертеже координаты указанных точек:...
1 - Когда началась первая мировая война ...
1 - СДЕЛАЙТЕ ВОПРОСЫ ИЗ ПРЕДЛОЖЕНИЙ: They are playing darts now. She...
1
а)
var s,a:integer;
begin
S:=-1;
a:=1;
while (a mod 5<>0) do
begin
s:=s+a;
readln(a);
end;
write(s);
end.
б)
var s,a:integer;
begin
a:=1;
while (a mod 5<>0) do
begin
readln(a);
s:=s+a;
end;
write(s);
end.