С клавиатуры вводится последовательность чисел до первого кратного 5.
вычислить: а) сумму всех введенных чисел до первого кратного 5
б) сумму всех введенных чисел, включая первое кратное 5
ВСЕ ЭТО НАДО НАПИСАТЬ НА ЯЗЫКЕ ПАСКАЛЬ
вычислить: а) сумму всех введенных чисел до первого кратного 5
б) сумму всех введенных чисел, включая первое кратное 5
ВСЕ ЭТО НАДО НАПИСАТЬ НА ЯЗЫКЕ ПАСКАЛЬ
More Questions From This User See All
Answers & Comments
а)
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.