Напечатать числа в виде таблицы, используя только циклы

@Борис73 · Регистрация: 10.11.2013

5 5 5 5 5 5
5 5 5 5 5 5
5 5 5 5 5 5
5 5 5 5 5 5

@Puporev · 10.11.2013, 14:23

Pascal

var i:byte;
begin
for i:=1 to 25 do
 begin
  write(5:2);
  if i mod 5=0 then writeln
 end;
end.

Добавлено через 8 минут
Что-то квадрат показался

Pascal

uses crt;
var i:byte;
begin
for i:=1 to 24 do
 begin
  write(5:2);
  if i mod 6=0 then writeln
 end;
end.

@Борис73 · 10.11.2013, 17:27 **[ТС]**

спасибо большое))

@Борис73 0 / 0 / 0 Регистрация: 10.11.2013 Сообщений: 9
		1
	Напечатать числа в виде таблицы, используя только циклы 10.11.2013, 14:10. Просмотров 1022. Ответов 2 Метки нет (Все метки) 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 0

@Борис73 0 / 0 / 0 Регистрация: 10.11.2013 Сообщений: 9
	10.11.2013, 17:27 [ТС]	3
	спасибо большое)) 0

Опции темы

Решение