Pascal. Написать алгоритм нахождения максимума из трех чисел (a,b,c) на языке Паскаль.
5-9 класс
|
uses crt;
var a,x,y,z:integer;
begin
Write ('x=');
read (x);
Write ('y=');
read (y);
Write ('z=');
read (z);
if x>y then
a:=1
else a:=0;
if (a=1) and (x>z) then
write('x-bolwe');
if (a=0) and (x<z) and (z>y) then
a:=3;
if (a=0) and (y>z)then
write('y-bolwe');
if (a=3) then
write('z-bolwe');
read;
end.
находит большее из 3-х, ты ведь это имела ввиду)
uses crt;
var
a, b , c: real;
begin
readln (a, b, c);
if (a> b) and (a>c) then writeln (a, ' MAX');
if (b>a) and (b>c) then writeln (b, ' MAX');
if (c>a) and (c>b) then writeln (c, ' MAX');
if (c=a) and (c=b) then writeln ('VSE CHISLA RAVNI');
readkey;
end.
Другие вопросы из категории
b) 10011+1011
c) 101*101
вычислите в двоичной системе счисления. пожалуйста!!
прибыль в размере 42 500 ООО руб., 84 200 400 руб., 38 946 500 руб. и 58 000 420 руб. соответственно. Из этих денег они уплатили налог на прибыль в размере 30%, причем 13% было перечислено в федеральный бюджет, а 17% — в городской.
Визуализируйте эти данные с помощью диаграмм. Продумайте и введите формулы для расчета значений в диапазонах СЗ:С6, D3:D6, ЕЗ:Е6.
Читайте также
от -100 до 100. Определить минимальное положительное число.
2) Дан массив, состоящий из 10 чисел. Найдите номера тех элементовв масива, которые наименее различаются.