Помогите, кто разбирается
Написать программу в Паскаль: найти наибольшее из 3 заданных чисел a, b и c
Нет комментариев
Ответы
Гость Простая программка для сравнения 3 чисел(min_max_1):
Program Min_Max;
var a,b,c,min,max:integer;
begin
write('Введите 3 числа для сравнения (через пробел) : ');read(a,b,c);
min:=a;max:=a;
if b>max then max:=b;if b<min then min:=b;
if c>max then max:=c;if c<min then min:=c;
writeln('Максимальное число : ',max);
writeln('Минимальное число : ',min);
readln;
end.
Нет комментариев
Похожие вопросы
Информатика
Найти сумму всех натуральных чисел от 1 до 5...
Информатика
НАРИСОВАТЬ БЛОК СХЕМУ ...
Информатика
Найти сумму чисел от 0 до 50 кратных 6...
Список предметов
