воплотить с поддержкою 3-х циклов: while, repeat, for) Составить программку,
Воплотить с подмогою 3-х циклов: while, repeat, for) Составить программку, которая выдавала бы известье true , если последовательность из N целых чисел, вводимых с клавиатуры, является вырастающей
Задать свой вопрос1 ответ
Karina Borjatina
Это реализовано с поддержкою цикла for:
Program p1;
Var a1,a2,k,i:integer;
Begin
Write('Введите число: ');
Readln(a1);
For i:=0 to 1 do
Begin
Write('Введите число: ');
Readln(a2);
if a2gt;a1 then
k:=k+1;
a1:=a2;
End;
if k=2 then
Writeln('Эта последовательность является вырастающей') else
Writeln('Эта последовательность не является вырастающей');
End.
Это реализовано с подмогою цикла while:
Program p2;
Var a1,a2,k,i:integer;
Begin
Write('Введите число: ');
Readln(a1);
While ilt;gt;2 do
Begin
Write('Введите число: ');
Readln(a2);
if a2gt;a1 then
k:=k+1;
a1:=a2;
i:=i+1;
End;
if k=2 then Writeln('Эта последовательность является возрастающей') else Writeln('Эта последовательность не является подрастающей');
End.
Это реализовано с подмогою цикла repeat:
Program p3;
Var a1,a2,k,i:integer;
Begin
Write('Введите число: ');
Readln(a1);
repeat
Begin
i:=i+1;
Write('Введите число: ');
Readln(a2);
if a2gt;a1 then
k:=k+1;
a1:=a2;
End;
until i=2;
if k=2 then
Writeln('Эта последовательность является вырастающей') else
Writeln('Эта последовательность не является возрастающей');
End.
Program p1;
Var a1,a2,k,i:integer;
Begin
Write('Введите число: ');
Readln(a1);
For i:=0 to 1 do
Begin
Write('Введите число: ');
Readln(a2);
if a2gt;a1 then
k:=k+1;
a1:=a2;
End;
if k=2 then
Writeln('Эта последовательность является вырастающей') else
Writeln('Эта последовательность не является вырастающей');
End.
Это реализовано с подмогою цикла while:
Program p2;
Var a1,a2,k,i:integer;
Begin
Write('Введите число: ');
Readln(a1);
While ilt;gt;2 do
Begin
Write('Введите число: ');
Readln(a2);
if a2gt;a1 then
k:=k+1;
a1:=a2;
i:=i+1;
End;
if k=2 then Writeln('Эта последовательность является возрастающей') else Writeln('Эта последовательность не является подрастающей');
End.
Это реализовано с подмогою цикла repeat:
Program p3;
Var a1,a2,k,i:integer;
Begin
Write('Введите число: ');
Readln(a1);
repeat
Begin
i:=i+1;
Write('Введите число: ');
Readln(a2);
if a2gt;a1 then
k:=k+1;
a1:=a2;
End;
until i=2;
if k=2 then
Writeln('Эта последовательность является вырастающей') else
Writeln('Эта последовательность не является возрастающей');
End.
Ника Залогова
Если не тяжело, отметьте мой ответ как лучший. Заблаговременно спасибо!
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Составить монолог от имени дневника двоечника 7-10 предложений
Русский язык.
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Сколько стоит коктейль молочный? Точную цену надо?
Математика.
Облако тегов