Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
FACE02
11.01.2020 11:25 •
Информатика
Составить листинг программы в паскале ввести файл f из 11 элементов. определить в нём количество тех элементов, которые при делении на 3 остаток 2.
Показать ответ
Ответ:
tyyyyyj
03.10.2020 13:13
//Pascal ABC.NET v3.1 сборка 1172
Var
f:text;
i,k,a:integer;
begin
assign(f,'text.txt');
reset(f);
for i:=1 to 11 do
begin
read(f,a);
if a mod 3=2 then inc(k);
end;
close(f);
writeln(k);
end.
Данные в файле text.txt:
1 2 3 4 5 6 7 8 9 10 11
Пример вывода:
4
0,0
(0 оценок)
Популярные вопросы: Информатика
miramill
08.04.2023 10:23
ответьте на вопросы 1.с каких операций можно обрезать часть аудиозаписи? 2. какие операции эффекты позволяют улучшить качество аудиозаписи? 3. каким образом можно соединить...
лол1621
18.12.2021 15:42
Як називають об єкт бази даних, у якому представлено результати запитів або спеціально сформовані таблиці у підготовленому до друкуВИГЛЯді ? *...
German22848
24.07.2022 21:42
Сор Соч поомшите посмотрите в ссылке...
Tori163
09.11.2022 22:40
НЕ ЗНАЮ не знаю не знаю очень дизайн - создания вещей промышленным или руками ??...
Vitiaaaa
30.01.2021 14:04
Какие племена расселились с 11-13 веках на обширных территориях от Дуная до Алтая?...
Lybava13322131
10.12.2020 01:42
Сравните природную экосистему и агроэкосистему на примере разнотравного луга и поля пшеницы. Признаки сравнения: длительность существования, продуктивность фитоценоза, устойчивость...
yanakorzh2003
02.04.2023 21:59
Смесь циклогексена и водорода, с мольным соотношением компонентов 1:5, пропустили над никелевым катализатором. Реакция с выходом 40%.Мольная доля водорода в конечной смеси...
5434689
26.06.2020 07:39
5-тапсырма. Берілген сандарға кері сандарды жазыңдар 5 3 S 11 1 9 111) Дұрыс бөлшектерге: 10 g 13 2 13 20Дұрыс бөлшекке кері санболады.1.110CONTATTI...
alanragibov02
01.09.2021 23:31
Люди добрые сделать географию практическую работу за одно задание Надо сделать только восьмое задание и все...
nastyskabaterfp08pfs
26.07.2020 09:26
Что писать подскожите...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Var
f:text;
i,k,a:integer;
begin
assign(f,'text.txt');
reset(f);
for i:=1 to 11 do
begin
read(f,a);
if a mod 3=2 then inc(k);
end;
close(f);
writeln(k);
end.
Данные в файле text.txt:
1 2 3 4 5 6 7 8 9 10 11
Пример вывода:
4