Программа: Простая таблица умножения на 2 до n числа

Задача: Сделать таблицу умножения на 2 до n числа - такого вида:
2*1=2
2*2=4
2*3=6
2*4=8
.....

PROGRAM tableumnog;
	var pr,i,n:integer;
BEGIN
	ReadLn (n);
	for i:=1 to n do
	  begin
		pr:=2 * i;
		WriteLn('2 * ',i,' = ',pr);
	  end;
END.

Просмотрело: 2216

Возможно, Вы искали: