TheZeusist
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.
2 votes Thanks 1
TheZeusist
Тут не совсем стандартное решение, но тоже работает правильно
danulpopov
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.
2 votes Thanks 1
lolgav12
Можете еще над одной задачей помочь в профиле?
Answers & Comments
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.
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.