Решите в вывести таблицу умножения чисел (от 4 до 10) на число, заданное с клавиатуры.

Transylvania1 Transylvania1    3   02.06.2019 03:50    2

Ответы
lrada123 lrada123  02.07.2020 23:58
Var 
 n,i:integer;
begin 
 readln(n); 
 for i:=4 to 10 do   
  writeln(i,'*',n,'=',i*n);
 end.
ПОКАЗАТЬ ОТВЕТЫ
Moduev Moduev  02.07.2020 23:58
Program umn;
var a,i:integer;
begin
write('Введите число: ');
read(a);
for i:=4 to 10 do 
begin
writeln(i, ' * ' ,a, ' = ' , i*a);
end;
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика