Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
нам это тоже задовали под буквой а я тож не знаю,а вот под буквой б напишу
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.
в египетском письме было более 750 иероглифов, не было гласных. иероглифы обозначали целые слоги и звуки.
var
a,m,n,k: real;
readln(m,n,k);
if (m+n+k)< (m*n*k) then
a: =m+n+k
else
a: =m*n*k;
writeln(a);
пщояк 17 27 16 33 17
нщёп 15 27 7 17
Популярные вопросы