С клавиатуры вводится последовательность чисел до первого кратного 5.
вычислить: а) сумму всех введенных чисел до первого кратного 5
б) сумму всех введенных чисел, включая первое кратное 5
ВСЕ ЭТО НАДО НАПИСАТЬ НА ЯЗЫКЕ ПАСКАЛЬ
Ответы на вопрос
Ответил 2ReCKey
0
а)
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.
Ответил kongreen
0
спасибо большое!
Новые вопросы