1.Найти наименьшее из двух заданных чисел a и b. 2.Дано целое число х. вывести ** экран...

Question

1.Найти наименьшее из двух заданных чисел a и b. 2.Дано целое число х. вывести на экран модуль числа х. 3.Определить, является ли заданное число трёхзначным.

Answer 1

Паскаль

________________

1. задание.

uses crt;
var
a,b, c: real;
begin
readln (a, b);
if a< b then writeln ('min ', a);
if a>b then writeln ('min ', b);
if a=b then writeln ('vse ravni');
readkey;
end.

__________

2.задание.

uses crt;
var
a,i: real;
begin
readln (a);
i:= abs(a);
writeln (i);
readkey;
end.

____________

3 задание.

uses crt;
var
a,i: integer;
st: string;
begin
readln (a);
str (a, st);
if length (st)=3 then writeln ('chislo trehznachnoe') else writeln ('chislo ne trexznachnoe');
readkey;
end.