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

@Siemens_73 · Регистрация: 02.04.2013

41 42 43…50
51 52 53…60
71 72 73…80

@YaRom · 10.06.2013, 18:04

Pascal

var
  i,j:integer;
begin
  for i:=1 to 10 do
    write(40+i:3);
  writeln;
  for i:=1 to 10 do
    write(50+i:3);
  writeln;
  for i:=1 to 10 do
    write(70+i:3);
  writeln;
  readln;
end.

@ermolay · 10.06.2013, 19:34

еще вариант

Pascal

var
  i,j: integer;
begin
  for i:=0 to 2 do
  begin
    for j:=40 to 50 do
      write(j+i*10:4);
    writeln;
  end;
  readln;
end.

@YaRom · 11.06.2013, 11:10

ermolay, я так же сначала начал, потом заметил, что 61..70 пропущено, хотя мож это автор пропустил..

@ermolay · 11.06.2013, 11:35

YaRom, спс, а я и не заметил

на случай, если так и задумано было..:

Pascal

var
  i,j: integer;
begin
  for i:=0 to 2 do
  begin
    if i=2 then inc(i);
    for j:=41 to 50 do
      write(j+i*10:4);
    writeln;
  end;
  readln;
end.

@Siemens_73 0 / 0 / 0 Регистрация: 02.04.2013 Сообщений: 47
		1
	Напечатать числа в виде таблицы, используя только циклы 10.06.2013, 17:42. Просмотров 1449. Ответов 4 Метки нет (Все метки) 41 42 43…50 51 52 53…60 71 72 73…80 0

@YaRom 43 / 43 / 43 Регистрация: 07.05.2013 Сообщений: 109
	11.06.2013, 11:10	4
	ermolay, я так же сначала начал, потом заметил, что 61..70 пропущено, хотя мож это автор пропустил.. 1

Опции темы