Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
нам это тоже задовали под буквой а я тож не знаю,а вот под буквой б напишу
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.
а)домащняя библиотека
в виде таблицы
1.номер
2.название
3.автор
4.полка
б)1.номер
2.слово
3.вопрос
4.род
5.число
6.падеж
в)1.номер
2.имя
3.фамилия
4.отчество
5.телефон
6.адрес
7.дата рождения
8.хобби
var
a,b: real;
readln(a,b);
if (a> 0) or (b< -2) then
writeln('истинно')
else
writeln('ложно');
10000 байт = 10000 : 2^10 кб = 9,8 кб
10000 байт = 10000 : 2^20 мб = 0, 009 мб
600000 байт = 600000 : 2^10 = 586 кб
Популярные вопросы