СРОЧНО! Напишите программы, которые вводят с клавиатуры два числа А и В и выводят на экран: 1) максимальное из чисел А и В; 2) минимальное из числе А и В; 3) числа А и В с указанием, какое из них является максимальным, а какое ...
СРОЧНО!
Напишите программы, которые вводят с клавиатуры два числа А и В и выводят на экран:
1) максимальное из чисел А и В;
2) минимальное из числе А и В;
3) числа А и В с указанием, какое из них является максимальным, а какое минимальным;
4) что больше: А+2В или 3А-В
Гость
Ответ(ы) на вопрос:
ГостьЛучше скачайте прикреплённый файл, так как здесь всё слилось))
1) varA, B: integer;beginreadln(A);readln(B);if (A>B) then writeln(A)else writeln(B);end.2)varA, B: integer;beginreadln(A);readln(B);if (A>B) then writeln(B)else writeln(A);end.3)varA, B: integer;beginreadln(A);readln(B);if (A>B) then beginwriteln (A, ' - максимальное число');writeln (B, ' - минимальное число');end;if (B>A) then beginwriteln (B, ' - максимальное число');writeln (A, ' - минимальное число');end;end.4)varA, B, c, d: integer;beginreadln(A);readln(B);c:= A+2*B;d:= 3*A-B;if (c>d) then writeln ('A+2B > 3A-B')else writeln ('3A-B > A+2B');end.
Воот))
Не нашли ответ?
Похожие вопросы