Вывести на экран таблицу умножения от 0 до 10

@just skill · Регистрация: 15.08.2015

Author24 — интернет-сервис помощи студентам

1. Вывести на экран таблицу умножения от 0 до 10, числа, которое введет пользователь. Форма вывода на экран следующая:

2 * 0 = 0
2 * 1 = 1

@Azavod · 16.08.2015, 00:37

Решение первой задачи (остальные в другую тему, как написано выше):

Pascal

Var a,i:integer;
Begin
 Readln (a);
  For i:=0 to 10 do 
   Writeln (a,' * ',i,' = ',a*i);
End.

@Александр710 · 19.08.2015, 19:41

var
a, b:integer;
begin
for a:=1 to 9 do
begin for b:=1 to 9 do begin
write(a*b :4);
end;
writeln;
end;
end.

Добавлено через 14 минут
Извините, вот правильный вариант:
var
a, b, c:integer;
begin
for a:=0 to 10 do
begin
for b:=0 to 10 do
begin
c:=a*b;
writeln(a, ' x ', b, ' = ', c);
end;
end;
end.

@Puporev · 19.08.2015, 19:43

Александр710, Сначала научись обрамлять код тегами, а потом пиши свои никому не нужные опусы.

@just skill 0 / 0 / 0 Регистрация: 15.08.2015 Сообщений: 6
		1
	Вывести на экран таблицу умножения от 0 до 10 15.08.2015, 10:14. Показов 10215. Ответов 3 Метки нет (Все метки) 1. Вывести на экран таблицу умножения от 0 до 10, числа, которое введет пользователь. Форма вывода на экран следующая: 2 * 0 = 0 2 * 1 = 1 0

@Александр710 1 / 1 / 1 Регистрация: 22.05.2015 Сообщений: 8
	19.08.2015, 19:41	3
	var a, b:integer; begin for a:=1 to 9 do begin for b:=1 to 9 do begin write(ab :4); end; writeln; end; end. Добавлено через 14 минут* Извините, вот правильный вариант: var a, b, c:integer; begin for a:=0 to 10 do begin for b:=0 to 10 do begin c:=a*b; writeln(a, ' x ', b, ' = ', c); end; end; end. 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	19.08.2015, 19:43	4
	Александр710, Сначала научись обрамлять код тегами, а потом пиши свои никому не нужные опусы. 0