1.Найти наименьшее из двух заданных чисел a и b. 2.Дано целое число х. вывести на экран модуль числа х. 3.Определить, является ли заданное число трёхзначным.
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.
Не нашли ответ?
Похожие вопросы