Program p_1;
var a: word;
begin
readln(a);
a := a * a;
writeln(a)
end
Ты можешь просто посчитать от 1 до 11)
Ответ:
F10 нажимай если уже все.
Объяснение:
Программа выводит сами числа и их квадраты
Program Square5;
Uses crt;
var i:integer;
begin
clrscr;
for i:=1 to 5 do
writeln(i,' ',i*i );
readkey;
end.
36 Кбайт
1)24/80=0.3
2)0.3*120=36
Ответ:36 Кбайт