Ответы
Ответ дал:
0
program kvadrat;
var a:integer;
begin
write('Введите число');
readln(a);a:=a*a;
write('Квадрат:',a);
end.
(Pascal ABC)
var a:integer;
begin
write('Введите число');
readln(a);a:=a*a;
write('Квадрат:',a);
end.
(Pascal ABC)
Ответ дал:
0
Program n1;
var a: real;
begin
readln(a);
write(a*a);
end.
var a: real;
begin
readln(a);
write(a*a);
end.
Вас заинтересует
1 год назад
6 лет назад
6 лет назад
8 лет назад
8 лет назад
9 лет назад