Знаете)) надо 1) составьте программу, определяющую превысил ли водитель допустимую скорость на участке дороги 2)составьте программу, определяющую является ли треугольник с заданными сторонами равносторонним. примечание: составное условие на языке паскаль записывается следующим образом: союзу или соответствует or союзу и соответствует and 3) составьте программу, которая находит наибольшее из 2 заданных чисел.

244

344

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

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

lol1046

Информатика

4,6(65 оценок)

3) var x, y, min, max: real; label m1; begin write('x='); readln(x); write('y='); readln(y); if x> y then begin min: =x; max: =y; goto m1; end else min: =y; max: =x; goto m1 m1: writeln('min=', min: 8: 3, ' max=', max: 8: 3); end. 2) var a, b, c: real; begin write('a='); readln(a); write('b='); readln(b); write('c='); readln(c); if (a=b) and (b=c) then begin writeln('треугольник равносторонний'); end else writeln('треугольник неравносторонний'); end. 1) var a, b: real; begin write('допустимая скорость ='); readln(a); write('скорость водителя ='); readln(b); if (a=b) or (a> b) then writeln('водитель не превысил скорость'); if a< b then writeln('водитель превысил скорость'); end. я надеюсь, что я правильно поняла первой и второй о: