Добрый вечер! Необходимо написать 2 программы на языке Паскаль! 1) Вывести на экран квадраты натуральных чисел от n до m. При этом n>m. Ввести с клавиатуры. 2) Вывести на экран степени целой величины x. Объявить степени longit Заранее спасибо!
JlaIIa
Var n,m,i:integer; begin writeln('n='); readln(n); writeln('m='); readln(m); if n>m then begin for i:=m to n do writeln (i,' в квадрате равно ',i*i); end else writeln('n<m'); end.
Answers & Comments
begin
writeln('n=');
readln(n);
writeln('m=');
readln(m);
if n>m then begin
for i:=m to n do
writeln (i,' в квадрате равно ',i*i);
end
else
writeln('n<m');
end.