Задание:
1. Написать программу, которая печатает TRUE или FALSE в зависимости от того, выполняется или нет условие: цифры заданноготрехзначногочисла упорядочены по возрастанию.2. Вычислить: y=cos (x+1)+cos (x+1,2)+… +cos (x+1,8) 3. Подсчитать количество цифр в заданном тексте.4. Дан массив А, содеpжищий как положительные, так и отpицательные числа. Удвоить все отpицательные числа, исключить все положительные.
Решение:
1.var n: integer; b: boolean; beginwriteln ('Введите трехзначное число: '); readln (n); if n div 100 < (n div 10) mod 10 then if (n div 10) mod 10 < n mod 10 then b: =true else b: =false; writeln (b); end.
Знаете другой ответ?