Program tablica; uses crt; var a,b,c : integer; begin Writeln('Таблица умножения'); write('Введите число '); Readln(a); for b:=1 to 10 do begin c:=a*b; Writeln(a,'*',b,'=',c); end; end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
