Опубликовано 08.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

Паскаль

________________

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.