Исходник простой программы, которая возводит в квадрат введенное с клавиатуры число. Открывается программами Pascal ABC, Pascal ABC.Net и Turbo Pascal. Пояснительных комментариев к строкам нет. Имеет не скомпилированный формат для редактирования .pas. Данная программа использует оператор sqr.
Исходный код программы для нахождения квадрата числа:
var a, c:integer;
begin
writeln ('Введите число');
readln (a);
c:=sqr(a);
writeln ('Квадрат равен ',c);
end.
begin
writeln ('Введите число');
readln (a);
c:=sqr(a);
writeln ('Квадрат равен ',c);
end.
Скачать: kvadrat.pas
Разобраться в коде данной программы Вы можете, изучив Урок №3 - операторы корня, модуля, квадрата числа. Скачать исходник программы, которая находит корень из числа вы можете тут.