Const
v=40;
var
t,r1,r2,r3:real;
n:integer;
begin
write('Сколько часов продержатся пассажиры? ');
readln(t);
write('Введите расстояния до трех спасателей (в узлах): ');
readln(r1,r2,r3);
if r1/v<t then n:=1;
if r2/v<t then n:=n+1;
if r3/v<t then n:=n+1;
If n>1 then writeln('Спасутся все')
else
if n>0 then writeln('Спасется половина пассажиров')
else writeln('Никто не спасется')
end. <span> </span>
1. Пила РОза ГРАММ А - ПРОГРАММА
2. КОрабль доМбра пАНДА - КОМАНДА
Ответ:
Суть программы следующая: у нас есть массив Dat, состоящий из 10 элементов. Значения каждого элемента нам уже известно, ведь их ввели прямо в коде программы. И так, цикл for k:=1 to 10 do проверяет, больше ли текущий элемент массива, чем 12, если да, то переменная m увеличивается на 1
От Dat[1] до Dat[10] больше 12 всего 7 элементов. Значит на экран выведется 7.
Ответ: 7.
Объяснение: