Циклы. Составить таблицу умножения для числа 12 в pascal.

Question

Циклы. Составить таблицу умножения для числа 12 в pascal.

Pivo Знаток (449), закрыт 6 лет назад

Задание 3

Answer 1

{1-й вариант оптимальный}
var i, n: byte;
begin
n:=12;
for i:=1 to n do
writeln (i:3,' *',n:4,' =', i*n:4);
end.

{2-й вариант как по заданию}
var A, N, P: byte;
begin
N:=12;
for A:=1 to N do
begin
P:=A*12;
write (A,' * ',N,' = ');
writeln (P);
end;
end.

Answer 2

1 x12= 12
2 x12= 24
3 x12= 36
4 x12= 48
5 x12= 60
6 x12= 72
7 x12= 84
8 x12= 96
9 x12= 108
10 x12= 120
11 x12= 132
12 x12= 144

Answer 3

Кублен Оракул (97341) 7 лет назад

for i:=1 to 9 do writeln(i,' * 12 = ',i*12);