1.Написать программу, которая печатает TRUE или FALSE в зависимости от того, выполняется или нет условие: цифры заданного трехзначного
числа упорядочены по возрастанию.
2.Вычислить:
y=cos (x+1) +cos (x+1.2) + ... +cos (x+1.8)
3. Подсчитать количество цифр в заданном тексте.
4. Дан массив А, содеpжищий как положительные, так и отpицательные числа. Удвоить все отpицательные числа, исключить все положительные.
числа упорядочены по возрастанию.
2.Вычислить:
y=cos (x+1) +cos (x+1.2) + ... +cos (x+1.8)
3. Подсчитать количество цифр в заданном тексте.
4. Дан массив А, содеpжищий как положительные, так и отpицательные числа. Удвоить все отpицательные числа, исключить все положительные.
More Questions From This User See All
Answers & Comments
var
n: integer;
b: boolean;
begin
writeln('Введите трёхзначное число: ');
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.