Регистрация
Snyezha
11.07.2020 08:31
Информатика
Есть ответ 👍

Написать разность робота и человека 3 4 разности

104
321
Посмотреть ответы 1

Ответы на вопрос:

maks123321456
maks123321456
4,8(34 оценок)

var

i, n : byte;

begin

repeat

write('введите n: ');

readln(n)

until n in [1..9];

writeln('таблица умножения');

for i : = 1 to 9 do

writeln(n, ' * ', i, ' = ', n * i);

writeln('таблица сложения');

for i : = 1 to 9 do

writeln(n, ' + ', i, ' = ', n + i);

readln

end.

Популярно: Информатика