Ответы
Ответ дал:
0
program abc;
var x,s:integer;
begin
x:=1;
while (x mod 5)<>0 do
begin
writeln('Введите x');
readln(x);
s:=s+x;
end;
writeln(s);
end.
var x,s:integer;
begin
x:=1;
while (x mod 5)<>0 do
begin
writeln('Введите x');
readln(x);
s:=s+x;
end;
writeln(s);
end.
Ответ дал:
0
Тут не совсем стандартное решение, но тоже работает правильно
Ответ дал:
0
var
a:array[1..10000] of integer;
i, n, sum:integer;
begin
Read(n);
For i:= 1 to n do
Read(a[i]);
For i:= 1 to n do
if (a[i] mod 5 = 0) then break
else inc(sum,a[i]);
Writeln(sum);
end.
a:array[1..10000] of integer;
i, n, sum:integer;
begin
Read(n);
For i:= 1 to n do
Read(a[i]);
For i:= 1 to n do
if (a[i] mod 5 = 0) then break
else inc(sum,a[i]);
Writeln(sum);
end.
Ответ дал:
0
Можете еще над одной задачей помочь в профиле?
Похожие вопросы
2 года назад
8 лет назад
9 лет назад
9 лет назад