Приблизительно как то так, но не ручаюсь за правельность
Если Y1
То если Y2
То S1
Иначе S2
S4
Иначе если Y3
То нц
S1
Кц
Иначе S
Все
Все
Все
Program reshenie;
var a,b:real;
begin
writeln('Введите длину и ширину прямоугольника:'); Readln(a); Readln(b);
if (a=b) then writeln('Прямоугольник является квадратом')
end.
Да, так как действия B и С противоположны, хотя А и С одинаковы в своих действиях.Все равно кто-то вышел.
1) 1 кбайт 2) там надо 1000 делить на 60 = 16.6 и умножить это на 36 = 600
В общем, на программу с while:
Program solid;
var n,i,s:real;
begin
read(n);
writeln('кол-во дней=',n);
i:=1;
s:=0;
while i<=n do
begin
i:=i+1;
s:=s+1;
end;
writeln('Вася пробежит ',s,' км за тренировочный цикл');
end.<span>
</span>