Требуется написать программу на языке Паскаль или Бейсик, которая будет выводить на экран максимальное значение из трех вводимых с клавиатуры чисел.
Ответы
Ответ дал:
0
uses crt;
var a,b,c:integer;
begin
clrscr;
readln(a,b,c);
if (a>b) and (a>c) then writeln('Max chislo = ',a);
if (b>a) and (b>c) then writeln('Max chislo = ',b);
if (c>b) and (c>a) then writeln('Max chislo = ',c);
readln;
end.
Ответ дал:
0
program max_chislo;
var
a,b,c:integer;
begin
write ('Введите три числа через пробел');read(a,b,c); readln;
if (a>b) and (a>c) then write('максимальное число = ',a);
if (b>a) and (b>c) then write('максимальное число = ',b)
else write ('максимальное число = ',c);
readln;
end.
Вас заинтересует
1 год назад
7 лет назад
9 лет назад
9 лет назад
9 лет назад