{ Использован код горизонтальной табуляции 09 для выравнивания вывода } var a,b,h,x:real; begin Write('введите a,b,h: '); Read(a,b,h); x:=a; while x<=b do begin Writeln(x,#09,#09,4*sin(x*x)+cos(x)); x:=x+h end end.
{ Использован код горизонтальной табуляции 09 для выравнивания вывода } var a,b,h,x:real; begin Write('введите a,b,h: '); Read(a,b,h); x:=a; while x<=b do begin Writeln(x,#09,#09,4*sin(x*x)+cos(x)); x:=x+h end end.
program z1;
var n,k:integer;
begin
k:=0;
write ('Введите натуральное число (n>9): ');
readln (n);
write ('Цифры натурального числа ',n);
while n>=10 do
begin
if n mod 10 < n div 10 mod 10 then k:=1;
n:=n div 10
end;
if k=1 then write (' НЕ расположены в порядке возрастания')
else write (' расположены в порядке возрастания')
end.
Объяснение:
Вводим число
Цикл с предусловием (условие число больше или равно 10)
Сравнение последней и предпоследней цифр числа, если последняя меньше, то k присваивается значение 1
n присваивается значение целочисленного деления на 10 (отбрасываем последнюю цифру числа)
Если k = 1, то цифры не расположены в порядке возрастания, иначе расположены