Консультация № 188143
26.10.2015, 23:25
0.00 руб.
0 2 1
Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос:

Точно и четко сформулировать условие задачи, которая решается в данной программе (Borland Pascal)
Program Kr_2;
Var N, A, B, S : Integer;
Begin
Write('Введите трехзначное число: '); ReadLn(N);
A := N div 100;
B := N mod 10;
If A > B Then S := 0.5 * (A + B) Else
If A < B then S := SQRT(A * B)
Else S := A + B;
WriteLn(S)
End.

Обсуждение

давно
Старший Модератор
31795
6196
27.10.2015, 00:44
общий
это ответ
Здравствуйте, Посетитель - 399097!

Условие:
Найти старшую и младшую цифры трехзначного числа.
Вычислить и вывести результат:
-если страшая цифра(А) больше младшей(В), то S := 0.5 * (A + B);
-если младшая цифра(В) больше старшей(А), то S := SQRT(A * B);
-иначе S := A + B.
Удачи!
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

давно
Старший Модератор
31795
6196
27.10.2015, 00:46
общий
Адресаты:
условие 3-и можно изменить на - если равны, то S := A + B.
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Форма ответа