Question

Составить программу, которая вводит с клавиатуры четыре целых числа a, b, c (каждое число – с новой строки) и выводит на экран минимальное среди них. ничего, кроме этого числа, программа выводить не должна. программу на паскаль

Answer 1

Program asd;

var a,b,c:integer;

Begin

Readln(a);

Readln(b);

Readln(c);

If (a<b) and (a<c) then writeln(a) else if b<c then writeln(b) else writeln(c);

end.

Answer 2

programm abc;

uses crt;

var a,b,c:integer;

begin

ClrScr;

writeln('a=',a);

readln(a);

writeln('b=',b);

readln(b);

writeln('c=',c);

readln(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;

end.