Объясните, пожалуйста, как это решать, что означают все эти символы и почему именно их пишем

@cherry) · Регистрация: 11.05.2011

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

Pascal

uses crt;
var i,j:byte;
begin
clrscr;
for i:=1 to 10 do
 begin
  if odd(i) then
   begin
    if i=1 then write(3:2)
    else
     begin
      for j:=1 to i div 2 do write(2:2);
      write(3:2);
     end;
   end
  else
   begin
    if i=2 then write(0:2)
    else
     begin
      for j:=1 to i div 2-1 do write(i div 2+j:2);
      write(0:2);
     end;
   end;
  writeln;
 end;
readln
end.

Объясните, пожалуйста, как это решать, что означают все эти символы и почему именно их пишем. Мне нужно учителю объяснить, чтобы она подумала, как будто это я сделала. Помогите, пожалуйста!!!

go · 23.05.2011, 22:57

ну odd определяет на четность
div целочисленное деление

Pascal

1	write (x:2); {количество отводимого место}

а так не понятно, что эта программа должна делать

@cherry) · 23.05.2011, 23:00 **[ТС]**

Задание: вывести на экран числа в виде следующей таблицы:
3
0
2 3
9 0
2 2 3
8 9 0
2 2 2 3
7 8 9 0
2 2 2 2 3
вот что она должна делать)

@cherry) 0 / 0 / 0 Регистрация: 11.05.2011 Сообщений: 15
	23.05.2011, 23:00 [ТС]	3
	Задание: вывести на экран числа в виде следующей таблицы: 3 0 2 3 9 0 2 2 3 8 9 0 2 2 2 3 7 8 9 0 2 2 2 2 3 вот что она должна делать) 0

Опции темы