Реализовать с 3-х циклов: while, repeat, for) составить программу, которая выдавала бы сообщение ‘ true ‘, если последовательность из n целых чисел, вводимых с клавиатуры, является возрастающей

229

393

Посмотреть ответы 2

Ответы на вопрос:

andruhmariya

Информатика

4,5(40 оценок)

Это реализовано с цикла for: program p1; var a1,a2,k,i: integer; begin write('введите число: '); readln(a1); for i: =0 to 1 do begin write('введите число: '); readln(a2); if a2> 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; beginwrite('введите число: '); readln(a1); while i< > 2 do begin write('введите число: '); readln(a2); if a2> 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 a2> a1 then k: =k+1; a1: =a2; end; until i=2; if k=2 then writeln('эта последовательность является возрастающей') else writeln('эта последовательность не является возрастающей'); end.

жони12

Информатика

4,4(9 оценок)

1. Центральный процессор (ЦП или CPU) - обычно большой, плоский и с множеством микросхем внутри - обработка всех видов данных

2. ПЗУ (Постоянное Запоминающее Устройство) - большой блок с микросхемами внутри - энергонезависимая память устройства

3. ОЗУ (Оперативное запоминающее устройство) - тонкая плата с черными прямоугольниками на ней - предназначено для запоминания и хранения временной информации