Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
NiazMth
09.07.2020 20:28 •
Информатика
Составить программу именно в №3 последовательно вводятся n целых чисел. сосчитать сколько из них с первым числом.
Показать ответ
Ответ:
Sheilin111111
21.08.2020 14:17
Var
k,n,p1: integer;
begin
writeln('Vvedite chislo');
readln(p1);
n:=0;
repeat
writeln('Vvedite chislo');
readln(k);
if (k=p1) then
n:=n+1;
until k<>-100
Write('Kol-vo sovpadeniy = ',n);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Myrzik007
13.01.2022 13:55
Набор текста Алишер и Сержан соревнуются в быстром наборе текста. Им дается текст с S набором символов, скорость набора текста Алишера V1 символов в миллисекунду, а Сержан набирает...
elenavlodekp087wo
13.03.2021 09:48
Охотник Владимир Фёдорович всегда берет с собой на охоту собаку Дружка, который загоняет для него зверя. В декабре собака добыла 5 зайцев и 1 волка, в январе — 8 зайцев, 2 волков...
MaGaFaYa
14.03.2021 09:03
Задача A: Доски Иван – профессиональный строитель. Помимо тщательного контроля при строительстве он также следит за качеством материалов. Иван решил сделать деревянный забор, поэтому...
12356гад
07.04.2021 20:36
напишите наибольшое число x, для которого ложно высказывание: ( x 72 ) ИЛИ ( x не делится на 11 )...
dianakazaryan1
14.04.2022 16:22
Турал, Фарид и Лала участвовали в соревнованиях вместе с Нарминой. Результаты этого соревнования были такими: вместе Лала и Фарид набрали меньше очков, чем Турал и Нармина. Турал...
sofka123890
19.08.2020 12:48
Дан одномерный массив размерностью 40 элементов, изменяющийся от -100 до 100. определить максимальный элемент массива и его номер без учёта максимального. это нужно в паскале....
marigol0220
03.11.2021 12:56
Самостоятельная работа с функциями информатика...
StalinReal
27.11.2020 10:39
Правильно ли я написал процедуру для расчета объема и площади параллелепипеда на языке Python. def parallelepiped (): a=float(input()) b=float(input()) c=float(input()) square=2*(a*b+b*c+a*c)...
dilya091
22.09.2020 01:53
Упорядкуйте хронологічну послідовність і виконайте завдання: a) розташуйте подї в хронологічній послідовності та визначте її хронологчні межі; 6) назвіть події, які відбулися синхронно...
uspenza
07.08.2022 15:09
Стала розпаду радіоактивного Урану-235 дорівнює 3,14-10-17 c-1. Скільки атомів Урану-235 міститься в радіоактивному препараті, якщо його активність складає 157 Бк?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
k,n,p1: integer;
begin
writeln('Vvedite chislo');
readln(p1);
n:=0;
repeat
writeln('Vvedite chislo');
readln(k);
if (k=p1) then
n:=n+1;
until k<>-100
Write('Kol-vo sovpadeniy = ',n);
end.