Регистрация
fackaF39
20.05.2020 19:19
Информатика
Есть ответ 👍

Петрова рассказала хозяину Toyota, что с детства мечтала о немецкой машине. Но её мечта не сбылась. Сидоров мечтал о французской машине, но его мечта тоже не сбылась. Только у Фёдорова мечта сбылась о немецкой машине. Выбери верный ответ. Петрова купил

118
394
Посмотреть ответы 1

Ответы на вопрос:

Мария20684
Мария20684
4,6(86 оценок)

(см. объяснение)

Объяснение:

program task;

var i: integer;

const N=5;

procedure writeOut(i: integer);

begin

 if(i<N) then write(', ')

 else writeln('.');

end;

begin

 if(N<1) then begin writeln('N>0 и целое!'); exit; end;

 writeln('ЦИКЛ FOR:');

 for i:= 1 to N

   do begin

        write(i); writeOut(i);

      end;

 writeln;

 writeln('ЦИКЛ WHILE:');

 i:= 1;

 while(i<N+1)

   do begin

        write(i); writeOut(i);

        i:= i+1;

      end;

 writeln;

 writeln('ЦИКЛ REPEAT:');

 i:= 1;

 repeat

   write(i); writeOut(i);

   i:= i+1;

 until i=N+1;

end.

Популярно: Информатика