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