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гбайт=1024мбайт
1/2гбайт=512мбайт
Program n1;
const n=20;
var y: real;
n: integer;
begin
y:=0;
for i:=1 to n do y:=y+1/n;
writeln(y);
end.
Точный наброски измеритель чертежи