1. Информатика
  2. Как вывести 5 раз окно сообщений

Как вывести 5 раз окно сообщений в паскаль

anastasiagarap anastasiagarap    3   12.12.2020 05:59    0

Ответы
Dayun3212 Dayun3212  11.01.2021 06:03

5 раз спрашивает ввод с клавиатуры, потом выходит из цикла

program v1;

var n,kol:integer;

 begin

   kol:=1;

   readln(n);

   repeat

   readln; if n>0 then kol:=kol+1;

   until kol=5;

 end.


Как вывести 5 раз окно сообщений в паскаль
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
5777Гусь111 5777Гусь111  21.09.2020 20:58
Найди определение смешанного облака Пользователь получает доступ, в основном через Интернет к таким вычислительным ресурсам, как серверы, базы данных, сети, сервисы...
fgsjjhw fgsjjhw  02.02.2022 04:45
Языки программирования Языки программирования Python и C++ ответ:высокого уровня...
ggggttttt ggggttttt  02.02.2022 04:47
Файл цветовой модели RGB в режиме High Color напечатали на принтере. Для печати использовали линейное разрешение 128 пикселей/см. Размеры печатного оттиска изображения...
T4ffy T4ffy  02.02.2022 04:58
ОМГ ВОПРОС ЖИЗНИ И СМЕРТИ НЕ РЕШУ УСРУГЦРУОАОАО...
PROGamerTV11 PROGamerTV11  22.04.2021 18:35
Постройте дерево каталогов C:\Рисунки\Природа\Небо.bmp C:\Рисунки\Природа\Снег.bmp C:\Рисунки\Компьютер\Монитор.bmp C:\Мои документы\Доклад.doc...
jjasco jjasco  22.04.2021 18:36
Составьте блок-схему и блок схему для подпрограммы (если она есть в коде). #include iostream #include map using namespace std; void fill_map(map char, string &m)...
lenab85 lenab85  21.05.2019 14:40
Втекстовом режиме экран монитора компьютера обычно разбивается на 25 строк по 80 символов в строке. определите объём текстовой информаций,занимающей весь экран монитора,...
агроэШкольник2281 агроэШкольник2281  21.05.2019 14:40
Дан целочисленный массив из 40 элементов которые могут принимать целые значения от 1 до 99 написать программу нахождения и вывода кол-во элементов массива сумма цифр...
kiryaegorov03 kiryaegorov03  28.05.2019 15:00
Что делает эта программа? procedure vvod(var st: string[10]; c: string); begin writeln( ввести + +c); readln(st); end; function kol(c: string; st: string): integer;...
lisi2912 lisi2912  28.05.2019 15:00
1)чем отличаются текстовый редактор от текстового процессора? 2)что такое гарнитура шрифта, кегль шрифта, начертания? 3)что такое ориентация листа(книжная и альбомная)?...

Популярные вопросы