Войти Регистрация Спроси ai-bota

Найти наименьшее из 3 чисел по паскалю

Ответ:

Golden12345

05.10.2020 13:27

program min;
uses crt;
var a,b,c:integer;
begin
read(a,b,c);
if (a<b) and (a<c) then writeln(a)
else if b<c then writeln(b)
else writeln(c);
end.

0,0(0 оценок)

Ответ:

KILOBAIT

05.10.2020 13:27

Var i,k,min:integer;
begin
readln(k);
min:=k;
for i:=1 to 2 do begin
readln(k);
if k>=min then min:=k;
end;
writeln(min);
end.
думаю, объяснять не нужно

0,0(0 оценок)

Популярные вопросы: Информатика

andreyschibria

04.01.2021 02:41

1. Как вы понимаете выражение «тело вращения»?...

Миша75040406

02.07.2022 04:37

Информатика 5 класс босова стр 130 №179. туристы должны переправиться через реку. в их распоряжении есть маленькая лодка, вмещающая только одного взрослого или двоих детей. как...

katea001

22.08.2021 04:46

Интерфейс, в котором компьютерные объекты представляются небольшими рисунками ответ...

alena1995rusnak

22.08.2021 04:46

Даны полные имена файлов , хранящихся на диске d: . d: country\usa\info\culture.txt d: \country\usa\washington.txt d: \country\russia\moscow.txt d: \country\russia\info\moscow.txt...

hdhdhdhehd

07.06.2020 05:29

Даны три целых числа. написать программу, находящую из заданных трёх чисел произведение нечетных чисел...

tanushkash05

07.06.2020 05:29

Какое значение примет переменная m после выполнения действия м =2*5+12/(2+4)-sqr(3)?...

hmrl123

14.10.2021 17:15

Дан одномерный массив a целого типа, состоящий из n элементов. найти в массиве третий, считая слева направо, элемент, имеющий заданное целое значение x, т.е. определить индекс...

Arina4dyuzhova

21.09.2022 07:21

Действительные числа a, b, c. если нельзя построить треугольник с такими сторонами, то напечатать 0, иначе 3, 2 или 1 в зависимости от того, равносторонний этот треугольник, равнобедренный...

ildargali1975

17.06.2021 22:09

Випиши з тексту фарбований лис прикметники які характеризують лиса...

Nikitos1111111111111

22.05.2022 13:04

Синоніми до слова лис будь-ласка до ть дуже треба...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку