Описать процедуру PIFAGOR которая выводит на экран таблицу умножения на заданное число
Var a,b,c:integer;
beginwriteln(введите число на которое умножить);
readln(a);
for b:=1 to 10 do
begin
writeln(a,*,b,=,a*b);
end;
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
