Предмет: Информатика,
автор: drons
Добрый вечер! Необходимо написать 2 программы на языке Паскаль!
1) Вывести на экран квадраты натуральных чисел от n до m. При этом n>m. Ввести с клавиатуры.
2) Вывести на экран степени целой величины x. Объявить степени longit
Заранее спасибо!
Ответы
Автор ответа:
0
готово........................
Приложения:
Автор ответа:
0
Спасибо!)
Автор ответа:
0
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.
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.
Приложения:
Похожие вопросы
Предмет: География,
автор: zeynullasymbat
Предмет: Математика,
автор: aitovaenessa
Предмет: Математика,
автор: asukiiiiiiiiiii
Предмет: Химия,
автор: yanasaparova