Вот на фото, только здесь 8 слов
-> два мальчика
<- один мальчик
-> один взрослый
<- возвращается один мальчик, который остался после первых двух действий
-> два мальчика
<- один мальчик
-> взрослый
<- мальчик, который после 5 и 6 действия
-> два мальчик
Program z1;
var a,b,c,ha,hb,hc,s1,s2,s3:real;
begin
writeln('введите основание и высоту (соответственно) первого треугольника');
readln(a,ha);
s1:=1/2*a*ha;
writeln('площадь первого треугольника = ',s1);
writeln('введите основание и высоту (соответственно) второго треугольника');
readln(b,hb);
s2:=1/2*b*hb;
writeln('площадь второго треугольника = ',s2);
writeln('введите основание и высоту (соответственно) третьего треугольника');
readln(с,hс);
s3:=1/2*с*hс;
writeln('площадь третьего треугольника = ',s3);
end.
0111110000011100 вроде так, но это не точно
Шар может поместиться в параллелепипед, если его диаметр будет меньше минимального из ребер параллелепипеда.
<u>PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ReadlnString.ToReals;
if a.Take(3).Min>2*a[3] then Writeln('YES') else Writeln('NO');
end.
<u>Если нужны именно файлы:</u>
begin
var a:=ReadAllText('input.txt').ToReals;
var s:=a.Take(3).Min>2*a[3] ? 'YES' : 'NO';
WriteAllText('output.txt',s)
end.