Написать программу на языке Паскаль нахождения 2 переменных.P=a×b

250

416

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

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

ValeriaChernysheva

Информатика

4,5(86 оценок)

Это про зайца var r,d,s,m,a: real; begin; write('введите скорость зайца '); readln(r); write('введите скорость собаки '); readln(d); write('введите расстояние до леса '); readln(s); write('введите расстояние между ними '); readln(m); a: =s/r; if (d*a)> =(m+s) then writeln('собака догонит зайца') else writeln('собака не догонит зайца'); end.про кругvar p,d,l: real; begin; write('введите периметр квадрата '); readln(p); p: =p/4; write('введите лину окружности '); readln(l); d: =(l/pi); if r< =pthen writeln('круг войдёт в квадрат')else writeln('круг не войдёт в квадрат'); end.