1. Напишите программу, которая получает натуральные числа A и B
(A

program square;

var a, b, k: integer;// a,b — пределы, k — счетчик

begin

writeln('Введите два числа через пробел');

readln(a, b);

k:= a;

while k <= b do

begin

writeln(k, ' * ', k, ' = ', k * k);

k:= k + 1

end

end.

uses crt; var n,i: integer; a: array[1..1000] of integer; beginread(n); for i: =1 to n do read(a[i]); for i: =1 to n do beginif a[i]< 0 then a[i]: =abs(a[i]); for i: =1 to n do write(a[i],' '); end.

телевидение

радиовещание

интернет

газеты и т.д