Kathis
4 год назад
Пожалуйста посчитайте пожалуйста. Надо написать программу в турбо паскале которая выводит на экран таблицу умножения числа на нечетные числа от 3 до 15.
ОТВЕТЫ
Йордан
Oct 24, 2020
uses Crt;
Var C,A:integer;
Begin
ClrScr;
C:=3;
Write('Введите число: ');ReadLn(A);
Repeat
Write(C:2,' * ',A,' = ',C*A,' ');
WriteLn;
C:=C+2;
Until C>15;
ReadLn;
End.
Var C,A:integer;
Begin
ClrScr;
C:=3;
Write('Введите число: ');ReadLn(A);
Repeat
Write(C:2,' * ',A,' = ',C*A,' ');
WriteLn;
C:=C+2;
Until C>15;
ReadLn;
End.
645
Смежные вопросы:
