#include <iostream>
using namespace std;
int main()
{
setlocale(LC_ALL,"RUS");
const int n=10;
bool yes=false;
double a, temp;
cin>>a;
for (int i=0;i<(n-1);i++)
{
temp=a;
cin>>a;
if (a<=temp){yes=false;break;}
else yes=true;
}
if (yes)
cout<<"Ряд возрастающий";
else cout<<"Ряд не возрастающий";
system("pause");
return 0;
}
Var a:array[1..10] of integer;
i,x:integer;
begin
write('Исходный массив: ');
for i:=1 to 10 do
begin
a[i]:=random(5);
write(a[i],' ');
end;
WRITELN;
write('Что ищем?: ');
readln (x);
for i:=1 to 10 do if x=a[i] then write('A[',i,'] ');
end.
Процессор
Текстовый процессор — вид прикладной компьютерной
программы, предназначенной для производства (включая набор,
редактирование, форматирование, иногда печать) любого вида печатной
информации. Иногда текстовый процессор называют текстовым редактором
второго рода.
Текстовые процессоры, в отличие от текстовых
редакторов, имеют больше возможностей для форматирования текста,
внедрения в него графики, формул, таблиц и других объектов. Поэтому они
могут быть использованы не только для набора текстов, но и для создания
различного рода документов, в том числе официальных. Классическим
примером текстового процессора является Microsoft Word.
<span>Во-первых, примем ограничение: число должно быть натуральным. т.е. целым и положительным без записи знака.
Во-вторых, возможны два принципиально разных алгоритма.
Первый
алгоритм предполагает, что число помещается оператором ввода в
целочисленную переменную и тогда мы получаем первую цифру, как
результат целочисленного деления на 10, третью - как остаток от целочисленного деления на 100, а вторую - как остаток от деления на 10 результата целочисленного деления на 10.
Второй алгоритм предполагает работу с символьным
изображением числа, т.е. после ввода получается символьная строка длиной
три. Первый (левый) символ будет первой цифрой числа и так далее.
Ниже приводятся тексты программ на языке Pascal, реализующие эти алгоритмы.</span>
<em>**********************************</em>
var
n:integer;
begin
Write('Введите целое трехзначное число без знака: '); Readln(n);
Writeln(n mod 10,(n div 10) mod 10,n div 100)
end.
<em><u>Тестовое решение:
</u></em>Введите целое трехзначное число без знака: 123
321
<em>**********************************</em>
var
n:string;
begin
Write('Введите целое трехзначное число без знака: '); Readln(n);
Writeln(n[3],n[2],n[1])
end.
<em><u>Тестовое решение:
</u></em>Введите целое трехзначное число без знака: 123
321