Регистрация
beatsdol
04.04.2020 13:09
Информатика
Есть ответ 👍

Пример: Перебор яблок
Пока яблоки в ящике не закончатся
взять из ящика яблоко;
посмотреть, гнилое оно или нет;
если гнилое
то выбросить
иначе положить в другой ящик;
СДЕЛАТЬ ПРИМЕР УСПЕШНОГО ОБУЧЕНИЯ С ПРИМЕРОМ НА ПЕРЕБОРЕ ЯБЛОК

180
260
Посмотреть ответы 1

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

ZeuSDECL0
ZeuSDECL0
4,6(12 оценок)

1)

var

i,k,n: integer;

begin

for i: =1 to 4

do

    writeln(1234);

end.

2)

var

i,k,n: integer;

begin

readln(n);

for i: =n to 5

do

  begin

  for k: =1
to i do

    write(i);

  writeln;

  end;

readln;

end.

3)

var

i,k,n: integer;

  begin

readln(n);

for i: =n downto 1 do

  begin

  for k: =1 to i do


    write(i);

  writeln;

  end;

readln;

end.

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