Головна » Статті » Pascal » Приклади програм |
Таблиця множення Pascal
program table;
uses crt; var i, j: integer; x:real; begin clrscr; for i:=1 to 9 do begin {виводимо чергову табличку} for j:=1 to 9 do writeln(i,'*', j, '=', i*j); {відділяємо її дінією} for j:=1 to 25 do write('-'); writeln('-'); end; readln(x); end. | |
Переглядів: 272 | | |
Всього коментарів: 0 | |