Регистрация
zzxxccv1
17.12.2022 01:47
Информатика
Есть ответ 👍

Определите что будет напечатано в результате работы следующего фрагмента программы:
1) Var k,s: integer
begin
s:=0
k:=0
while k<20 do begin
s:=s+k;
k:=k+5;
end;
write(s);
end.

2) Var k,s: integer
begin
s:=0
k:=0
while k<34 do begin
s:=s+2*k
k:=k+2
end;
write(s);
end.

3) Var k,s: integer
begin
s:=0
k:=0
while k<28 do begin
s:=s+k;
k:=k+4;
end;
write(s);
end.

238
379
Посмотреть ответы 1

Ответы на вопрос:

никита3497
никита3497
4,7(18 оценок)
Var a,b,c: integer; begin writeln('a='); readln(a); writeln('b='); readln(b); writeln('c='); readln(c); if   (a+b> c) and (b+c> a) and (c+a> b) then writeln('treugolinik   suscestvuet') else writeln ('treugolinik ne suscestvurt'); readln; end.

Популярно: Информатика