Составить программу на языке Pascal. Дано: а1, а2, а3, - производное. Найти: min
Составить программу на языке Pascal.
Дано: а1, а2, а3, - производное.
Найти: min
Гость
Ответ(ы) на вопрос:
Гостьvar a1, a2, a3, min : integer;
begin
readln(a1, a2, a3);
min := a1;
if min > a2 then min := a2;
if min > a3 then min := a3;
writeln(min);
end.
Гостьprogram bit;
var m,a1,a2,a3:
integer;
begin
writeln('введите три числа');
readln(a1,a2,a3);
if (a1
Не нашли ответ?
Похожие вопросы