Сделайте таблицу умнажений в Free Pascal
Ответы на вопрос
Ответил kappushev0987
0
Без массивов и с циклами:
program N53746544;
var a,b:integer;
begin
writeln('Таблица умножения');
for a := 1 to 9 do begin
for b := 1 to 9 do
if a*b=1 then write('____') {печатает 4 пробела}
else write(a*b:4);
writeln;
end;
readln;
end.
program N53746544;
var a,b:integer;
begin
writeln('Таблица умножения');
for a := 1 to 9 do begin
for b := 1 to 9 do
if a*b=1 then write('____') {печатает 4 пробела}
else write(a*b:4);
writeln;
end;
readln;
end.
Новые вопросы