Напишите программу, которая выводит на чистом экране таблицу умножения чисел : 5 , 2 , 6

@jnes951 · Регистрация: 22.05.2013

Напишите программу, которая выводит на чистом экране таблицу умножения
чисел : 5 , 2 , 6 .

Kodzaev · 27.05.2013, 20:21

Pascal

Procedure Table(n: Byte);
var i: Byte;
begin
  For i:=1 to 9 do
  Writeln(n,'*',i,'=',n*i);
end;
{------}
BEGIN
Writeln('Таблица умножения 5: ');
Table(5);
Writeln('Нажмите Enter для продолжения...');
Readln;
Writeln('Таблица умножения 2: ');
Table(2);
Writeln('Нажмите Enter для продолжения...');
Readln;
Writeln('Таблица умножения 6: ');
Table(6);
Writeln('Программа завершена');
Readln
END.

@jnes951 0 / 0 / 0 Регистрация: 22.05.2013 Сообщений: 46
		1
	Напишите программу, которая выводит на чистом экране таблицу умножения чисел : 5 , 2 , 6 27.05.2013, 20:16. Показов 1724. Ответов 1 Метки нет (Все метки) Напишите программу, которая выводит на чистом экране таблицу умножения чисел : 5 , 2 , 6 . 0

Опции темы

Напишите программу, которая выводит на чистом экране таблицу умножения чисел : 5 , 2 , 6

Решение