Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
1 кбайт=1024 байта
1 байт=8 бит
81920/8=10240 байт
10240/1024=10 кбайт
var a,res: integer;
begin
writeln('введите число');
readln(a);
res: =sqr(a);
writeln('квадрат числа,'a', равен,'res',');
readln;
end.
Популярные вопросы