1.Вывести в столбик 10 раз слово рота 2. Вывести в квадрат всех целых чисел от 0 до а (...

Question

1.Вывести в столбик 10 раз слово рота 2. Вывести в квадрат всех целых чисел от 0 до а ( значение а вводится с клавиатуры ) 3. Напечатать таблицу перевода 1,2,…,6 фунтов в граммы ( пример: 1 фунт=453 грамма)Программа: ABC Pascal8 класс

Answer 1

1:

--

program l;

var n:integer;

begin

for n:=1 to 10 do

writeln('Рота');

end.

--

program l;

var

 n, i: integer;

begin

 writeln('Введите n:');

 readln(n);

 for n := 0 to n do

 begin

   i := n * n;

 end;

 writeln(n,'в квадрате: ',i);

end.

--

3:

program l;

var i,n:integer;

begin

for n:=1 to 6 do

begin

i:=456*n;

Writeln(n,'фунт(-а) это ',i, 'грамм.');

end;

end.