Задание:
Очень прошу помогите Q_Q 1) Даны три числа вывести их в порядке возрастания. Составить алгоритм в Паскале. 2) Определить пройдет ли кирпич с ребрами a,b,cв прямоугольное отверстие со сторонами x и y. Алгоритм в Паскале.
Решение:
#1: const Count=3; // количество проверяемых чисел var m: array [1… Count] of Integer; i, e, c: Integer; beginWriteln ('Введите числа: '); for i: =1 to Count do begin Write (i ,': '); Readln (m[i]); end; for i: =1 to Count do for e: =1 to Count do if m[i] < m[e] then begin c: =m[i]; m[i]: =m[e]; m[e]: =c; end; for i: =1 to Count do Write (m[i], '); Readln; end. #2: var a, b, c, x, y: Integer; beginWriteln ('Введите ребра кирпича: '); Write ('a: '); Readln (a); Write ('b: '); Readln (b); Write ('c: '); Readln (c); Writeln ('Введите стороны отверстия: '); Write ('x: '); Readln (x); Write ('y: '); Readln (y); x: =x*y; if (a*b <= x) or (a*c <= x) or (b*c <= x) then Write ('Пройдет.') else Write ('не пройдет.'); Readln; end.
Знаете другой ответ?