Ответы на вопрос:
Var i,k,n,a1: integer; begin readln(n); readln(a1); for i: =0 to n-1 do begin readln(k); if (a1 = k) then writeln("есть такое число") else writeln("нет такого числа"); end; end.
Популярно: Информатика
-
ответьте на вопросы контролиной...
Nastusha2103200519.01.2020 17:41 -
Кескінді салу деген не...
гуманитарий001316.06.2021 17:07 -
с информатикой, заранее...
dmitryparshin27.08.2021 03:24 -
Составите программу которая заполняет массива a[1..10] случайными целыми числами...
Helpppppp1102.03.2023 14:51 -
Вpascal abc вывести на экран последо вательность символов: 122333444455555.....
nastya273412.06.2020 23:40 -
Abs(trunc(-11.889)+round(11.789)-trunc(6.799)+round(-6.501))...
lizalist050605.02.2020 06:35 -
Чертежнику был дан для исполнения следующий алгоритм: сместиться на (–1, 1)...
Ychenik7707.02.2021 11:35 -
На ввод подается одно число. найдите сумму всех его простых делителей. входные...
Vampire123403.05.2022 06:51 -
Написать программу, которая выводит таблицу значений функции у = -2,4х2+5х-3...
vityadmitriev206.10.2022 09:04 -
Яке значення S буде виведено в текстове поле? var N, d, S: Integer; begin N:...
anyutkavolf2004.02.2023 18:41