4. Паскаль,помогите пожалуйста))) Составьте программу, выводящую ** экран квадраты чисел...

Question

4. Паскаль,помогите пожалуйста)))
Составьте программу, выводящую на экран квадраты чисел от n до m (n, m вводятся пользователем с клавиатуры).

Answer 1

Program kvadratu;
var k,m,n,i:integer;
begin 
Writeln('Введите n');
Writeln('Введите m'); 
Readln(n,m);
K:=(m-n);
Writeln(n*n);
 for i:=1 to K do 
  begin   
   Writeln((n+1)*(n+1)); 
   n:=n+1; 
  end;
end.

Comments

Спасибо вам огромное !)))