Question

Помогите пожалуйста, завтра контрольная, объясните турбо Паскаль (7 класс ) задачи будут примерно такие:
1)для чисел от а до 30,вывести на экран сами числа и их сумму с числом 123.
2)вывести на экран таблицу умножение на 4(1-10)

Answer 1

Program Alph;
const n=30;
var a,i,:integer;
begin
  writeln ('*********************************');
  writeln ('*   N   *   Число   *   Сумма   *');
  writeln ('*********************************');
  for i:=1 to n do
    begin
      a:=random (100);
      writeln ('*   ',i,'   *     ',a,'    *    ',a+123,'    *');
end;
  writeln ('*********************************');
end.


Program Aeus;
const n=10;
var i:integer;
begin
  writeln ('******************************');
  writeln ('*   Таблица умножения на 4   *');
  writeln ('******************************');
  for i:=1 to n do
    begin
      writeln ('*         4 x ',i,' = ',4*i,'         *');
end;
  writeln ('******************************');
end.