Ответ(ы) на вопрос:
ГостьВот схема, попробуй по ней!
Гость1.
var
s,n:integer;
begin
s:=4;
for n:=1 to 7 do begin
s:=s+n*3;
end;
write(s);
end.
//Блок схема на скрине
2.
var
s,x,n:integer;
begin
s:=0;
repeat
x:=x+2;
s:=s+x;
until x=n;
end.
//Блок схема на скрине
3.
var
x:longint;
begin
for x:=1000 to 9999 do
if (x mod 133=125) and (x mod 134=111) then
write(x);
end.
Не нашли ответ?
Похожие вопросы