Program g;
Var
a:integer;
Begin
Readln(a) ;
Writeln(sqr(a)) ;
End.
Поделитесь своими знаниями, ответьте на вопрос:
Вычислить сумму квадратов чисел от 1 до 30. Квадраты чисел записаны в файл. на паскале
Program g;
Var
a:integer;
Begin
Readln(a) ;
Writeln(sqr(a)) ;
End.