Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
нам это тоже задовали под буквой а я тож не знаю,а вот под буквой б напишу
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.
a в квадрате плюс b в квадрате:
;
7fe=14*16^0+15*16^1+7*16^2=2046 в 10 с/с 2046/2=1023 байт
e=14
f=15
ответ 2
program _1_2; uses crt; var dlina, shirina, vysota: real; begin clrscr; textcolor(14); writeln('вычисление объёма параллелепипеда.'); writeln('введите исходные данные: '); write('длина (см) -> '); readln(dlina); write('ширина (см) -> '); readln(shirina); write('высота -> '); readln(vysota); writeln('объём: ',(dlina*shirina*vysota): 7: 2); repeat until keypressed; end.
Популярные вопросы