Регистрация
Siemens1
30.10.2020 11:34
Информатика
Есть ответ 👍

Сколько клеток приведенного лабиринта соответствует требованию: выполнив предложенную программу, Робот остановился в той же клетке, с которой он начал движение? Все буквы: а), б) и в).

220
295
Посмотреть ответы 1

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

danyaсс
danyaсс
4,4(52 оценок)

var min,max: integer;

a: real;

begin

write("vvedite massi vseh ludei iz gruppy: ");

read(a);

min: =a;

while (a> 0) do

begin

read(a);

if (a> max) max: =a;

if (a< min) min: =a;

end;

a: =max/min;

if (a> 2) then write("verno") else write("neverno");

readln

end.

 

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