tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Посчитать количество введенных
Посчитать количество введенных чисел пока не будет введено 0
yanamosijchuk
1 10.09.2019 09:00
1
Ответы
kristinaлсп
07.10.2020 04:59
Var
count_num:integer;
number:real;
begin
count_num:=0;
repeat
readln(number);
writeln('Введенное число: ',number);
if (number <> 0) then Inc(count_num);
until (number =0);
writeln('Количество введеных чисел: ', count_num);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Vikysay10
19.03.2021 20:48
Змінні використовуються для: Виберіть одну відповідь: збереження введених даних та обчислень обрахунків співвідношення введених обчислень....
DOCTORMOZG
19.03.2021 20:40
Яких значить набудуть зміни а і b після виконання фрагменту програмі а=1,b=2,a=b,b=a відповідь:а)a=1,b=2б)а=1,b=1в)a=2,b=1г)a=2,b=2...
Sinnysis
19.03.2021 20:37
Дано 5 целых чисел. Напиши программу нахождения наибольшего среди них....
olesyapetrova8
18.12.2020 10:58
запишите пять разных имен файлов, удволетворяющих маске *d*r?. d?o*...
AntonovnaAlina200
18.12.2020 11:00
Информатика 7 класс/ Excel форматирование таблиц...
аркадий47
18.03.2021 16:32
Составьте блок-схему для данного скрипта. Скрипт Блок-схема...
qqvikaglazynova
18.03.2021 16:32
В лицее учатся N учеников. У каждого ученика лицея есть пропуск в здание лицея, у каждого такого пропуска есть свой уникальный номер (номера имеют все пропуска)....
polinakolesnik4
18.09.2019 01:10
Скорость скачивания одной серии равна 10 мбит/с. объем одной серии равен 300 мбайт. сколько серий скачается за 3 часа?...
79185519305
18.09.2019 01:10
Составить программу, которая запрашивает ввод двух значений температуры и проверяет, есть ли среди них температура кипения воды надо выполнить в кумира....
kateshaginian
25.05.2019 08:40
Установіть генетичний ланцюжок добування калій сульфату, складіть хімічні рівняння; а) калій гідроксид б) калій в) калій оксид г) калій сульфат установите генетическую...
Популярные вопросы
Доказать тождество sina-1/cos^2a=-1/1+sina...
2
Ссочинением на тему i had never imagined i would see myself on...
2
Что такое клинописиц? каким что такое клинопись с какими особенностями...
3
90 (я смогу узнать, если вы обманите, так как ответ я знаю, мне...
2
Запишите число в виде суммы его целой и дробной частей...
1
8360020 314000000 0.000007 ввести стандартный тип...
3
Crcl2+ - cr2(so4)3+ цепочку превращения...
3
Ана сколько процентов воды больше чем земли...
1
Сочинение на тему : я думаю ,что в...
1
Мцыри как романтический герой. краткий рассказ-рассуждение...
3
count_num:integer;
number:real;
begin
count_num:=0;
repeat
readln(number);
writeln('Введенное число: ',number);
if (number <> 0) then Inc(count_num);
until (number =0);
writeln('Количество введеных чисел: ', count_num);
end.