Регистрация
AnTonDPR
13.06.2020 18:19
Информатика
Есть ответ 👍

Turbo pascal составить программу проверяющую является ли последовательность из 10 целых чисел вводимых с клавиатуры возрастающей, программу составить с оператором repeat

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

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

6г56г
6г56г
4,7(65 оценок)
Uses crt; var i : integer; a,b : real; begin clrscr; i: =0; repeat   i: =i+1;   write ('a',i,'='); readln (a);   if a< > 0 then   begin   write ('a',i,'='); readln(b);     if (b< =a)     then     begin       writeln('не является');       exit;     end     else     a: =b;   end;   writeln('является');   until a=0; end.
Rushana14
Rushana14
4,4(7 оценок)
Переведем все в одну систему счисления, например, в шестнадцатиричную.

Популярно: Информатика