Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
vw
Объяснение:
нам это тоже задовали под буквой а я тож не знаю,а вот под буквой б напишу
program prim;
var i,sum,n,x : integer;
begin
write('n = ');
readln(n);
x: =2;
sum: =2;
i: =1;
while sum< =n do
x: =x+2;
i: =i+1;
sum: =sum+x;
end;
writeln(i,'слагаемых');
end.
program p;
vara,b,c,i,j,n : integer;
beginwriteln('введите три числа'); readln(a,b,c);
if a> b then if a> c then writeln(a,c,b) else writeln(c,a,b) else if c> b then writeln(a,b,c) else writeln(b,c,a);
readln; end.
Популярные вопросы