uses crt; var a,b,c,min:integer; begin writeln('Введи три числа: '); readln(a,b,c); min:=a; if b<min then min:=b; if c<min then min:=c; writeln('Наименьшее из этих чисел: ',min); readln; end.
//Pascal //Для натуральных чисел var a, s, p:integer;
begin write('Введите число = '); readln(a); s := 0; p := 1; while (a<>0) do begin p := p * (a mod 10); s := s + (a mod 10); a := a div 10; end; writeln( 'Сумма цифр числа = ', s); writeln( 'Произведение цифр числа = ', p); end.
//Если число отрицательное var s, p, a, b, c: integer; f: boolean; begin write('Введите число = '); readln(a); if a < 0 then f := true; a := abs(a); b := a mod 10; a := a div 10; c := a mod 10; a := a div 10; if f = true then begin p := (-a) * b * c; s := -a + b + c; end else begin s := a + b + c; p := a * b * c; end; writeln('Сумма цифр числа = ', s); writeln('Произведение цифр числа = ', p); end.
var
n1,n2,n3,min:word;
begin
write ('N1= ');readln(n1);
write ('N2 = ');readln(n2);
write ('N3 = ');readln(n3);
if (n1<n2) and (n1<n3) then min:=n1 else
if (n2<n1) and (n2<n3) then min:=n2 else min:=n3;
writeln ('Min: ',min);
readln;
end.