Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
нам это тоже задовали под буквой а я тож не знаю,а вот под буквой б напишу
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.
var
s,a,n,i,min,max: integer;
min: =32767;
max: =-32768;
for i: =1 to n do
readln(a);
if a< min then min: =a;
if a> max then max: =a;
s: =(min+max)/2;
writeln(s);
954-459=495
все условия соблюдены
смотри скриншот
Популярные вопросы