написать программу нахождения большего и меньшего из 3 чисел помогите пожалуйстаааааааааа((((
5-9 класс
|
var a,b,c:integer;
begin
readln(a,b,c);
if (a>b) and (a>c) and (b>c) then writeln('c=',c,'a=',a) else
if (b>a) and (b>c) and (a>c) then writeln('c=',c,a,'b=',b) else
if (c>a) and (c>b) and (b>a) then writeln('a=',a,'c=',c) else
if (a>b) and (a>c) and (c>b) then writeln('b=',b,'a=',a) else
if (b>a) and (b>c) and (c>a) then writeln('a=',a,'b=',b) else
if (c>a) and (c>b) and (a>b) then writeln('b=',b,'c=',c) else
readln;
end
var
a, b, c: real;
begin
writeln('Введите 3 любых числа');
readln(a, b, c);
if (a < b) and (a < c) then writeln(a, ' - наименьшее число');
if (b < a) and (b < c) then writeln(b, ' - наименьшее число');
if (c < a) and (c < b) then writeln(c, ' - наименьшее число');
if (a > b) and (a > c) then writeln(a, ' - наибольшее число');
if (b > a) and (b > c) then writeln(b, ' - наибольшее число');
if (c > a) and (c > b) then writeln(c, ' - наибольшее число');
readln; //Убрать если среда разработки не Turbo Pascal
end.
Другие вопросы из категории
месяца(май, июнь, июль) в виде гистограммы. Определите среднее значение спроса на пироги с той начинкой, популярность которых неуклонно росла из месяца в месяц
(В паскале плиз!!!)
Читайте также
N, Написать ему выводящую на экран последовательность натуральность натуральных чисел отN до 1, номер 3 Даны натуральные числа N и К.Написать программу выводящую на экран последовательность из N чисел , каждое из которых равно К хотя бы что нибудь решите помогите очень надо!!!!!!!!!
Пользователь вводит пять чисел. Программа выводит ответ: "Максимальное число ... ".
Написать программу в "КуМиРе"
1. Написать программу нахождения произведения n чисел.
положительных чисел, которые вводятся с клавиатуры. 2. Написать программу, которая определяет максимальное число из введенной с клавиатуры последовательности положительных чисел (длина последовательности неограниченна).