Ответы на вопрос:
Uses crt; var a,t,ans: integer; begin read(a); ans: =1; while true do begin t: =a; read(a); if a> t then ans: =ans+1 else break; end; writeln(ans); end.
Популярно: Информатика
-
написать программу мовою паскаль яка при заданих параметрах довжини поперечного...
faets02.09.2021 06:23 -
Нужна по Acess! Форми називати порядковим номером завдання. У заголовках форм...
Danьka32332326.02.2022 22:22 -
Сделайте и прикрепите Acess Файл. 2. Побудувати складову форму «оцінки студента»....
Olenkako200422.03.2021 23:24 -
Установите соответствие между объектами и группами действий которые можно...
hard2625.11.2021 03:03 -
Дан целочисленный двумерный массив, размерности 6×4. Найти сумму и произведение...
littlecat12324.06.2022 06:40 -
Напишите программу, которая вычисляет расстояние от начала координат до заданной...
grimm330066Flippoo10.06.2023 23:55 -
Вопрос 6 Это действие может производиться с данными реляционной базы. Вопрос...
khaub45621.03.2020 20:41 -
В книге 100 страниц. На каждой странице 60 строк по 80 символов в строке....
2112x2n3t14.02.2021 01:09 -
Ввести координати десяти точок на площині і визначити, яка чверть координатної...
lorik0230.09.2022 19:30 -
На турнире по решению было решено 10 . максим решил №7. сколько информации...
26nn04.04.2021 01:23