Program n_1;
var n,count:integer;
Begin
Write('введите натуральное полож.число n -');
read(n);
count:=0;
While n>0 do
Begin
n:=n div 10;
count:=count+1;
end;
write(count);
End.
Попробуй эту программу
Var
x, x1: integer;
BreakLoop, NonDescending: Boolean;
begin
writeln('Вводите числовую последовательность');
read(x);
read(x1);
NonDescending := (x1 >= x);
repeat
read(x);
if x <> 0 then
if NonDescending then BreakLoop := (x < x1)
else BreakLoop := (x > x1);
x1 := x
until BreakLoop or (x = 0);
if BreakLoop then writeln(#13#10, 'Последовательность неупорядочена')
else
if NonDescending then writeln(#13#10, 'Последовательность неубывающая')
else writeln(#13#10, 'Последовательность невозрастающая')
end.
Тестовое решение
Вводите числовую последовательность
7
12
12
18
34
0
Последовательность неубывающая
1. Программа сохраняет в файл NEDELYA.txt введённые названия дней недели
program p1;
var
fl: text;
str: string;
begin
writeln('Введите названия дней недели через пробел. По окончании нажмите Enter');
assign(fl, 'C:\Users\ ...\Desktop\NEDELYA.txt');
rewrite(fl);
readln(str);
writeln(fl, str);
close(fl);
end.
2. Программа сохраняет в файл NEDELYA.txt введённые названия дней недели, добавляя в конце "Monday Tuesday Wednesday Thursday Friday Saturday Sunday"
program p2;
var
fl: text;
str: string;
begin
writeln('Введите названия дней недели. По окончании нажмите Enter');
assign(fl, 'C:\Users\ ... \Desktop\NEDELYA.txt');
rewrite(fl);
readln(str);
writeln(fl, str);
write (fl,'Monday Tuesday Wednesday Thursday Friday Saturday Sunday');
close(fl);
end.
3.Программа выводит на экран текст из файла NEDELYA.txt
program p3;
var
fl: text;
str: string;
begin
assign(fl, 'C:\Users\ ... \Desktop\NEDELYA.txt');
Reset(fl);
while not eof(fl)do begin
readln(fl,str);
writeln(str);
end;
close(fl);
end.
... заменяется правильным адресом файла
PascalABCNET
