составить програму нахождение наименьшего из трёх чисел. Created by ValeriaPanteleeva15. informatika-ru

составить програму нахождение наименьшего из трёх чисел...

ValeriaPanteleeva15 @ValeriaPanteleeva15

July 2022 2 11 Report

составить програму нахождение наименьшего из трёх чисел

Аня1999099 Var
a, b, c, max: longint;
begin
readln(a, b, c);
max:=a;
if b > max then max:=b;
if c > max then max:=c;
writeln(max);
readln;
end

a, b, c - наши числа
max - максимальный
Вводим три числа, в ответ получаем максимальный

0 votes Thanks 0

danulpopov // PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
Writeln('Минимальное -> ', min(ReadInteger('a ='),min(ReadInteger('b ='),ReadInteger('c ='))));
end.

0 votes Thanks 0

Answers & Comments

1.Задача на моногибридное скрещивание Гомозиготного кролика с короткой шерстью( ...

сочинение-рассуждение на тему Что значит быть современным человеком?...

1. Сравните строение растительной и животной клеток, о чем свидетельствует их сх...

Найдите знаменатель геометрической прогрессии (bn), в которой b4 = 36, b6 = 4...

рекомендуемые вопросы

Helpful Links

Helpful Social