Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Юлька9062804
08.05.2022 17:56 •
Информатика
Известны оценки по информатике 15 учеников класса. выяснить, есть ли среди них двойки. ! на языке паскаль
Показать ответ
Ответ:
SallyKromsali3
13.08.2020 23:47
Var x,i,s: integer;
Begin
s:=0;
for i:= 1 to 15 do
begin;
Write('Введите оценку ученика №',i,' ');
readln(x);
if (x=2) then
s:=s+1;
end;
if (s=0) then writeln('Двоек нет!')
else writeln('Двойки есть! Всего двоек: ',s);
readln(x);
end.
//На скриншоте образец работы программы.
0,0
(0 оценок)
Популярные вопросы: Информатика
сснсогаоаг
10.02.2020 15:46
Для кого будет следующее сообщение ? выпущен новый тип краски, основанный на технологии структуры волоса. 1) дворник 2)для начинающего программиста 3)для парикмахера...
evelinkazelenyak
10.02.2020 15:46
Как известно стандартной встроенной в windows, программой для обработки графических изображений является программа paint, её основными функциями являются : ? !...
Fast2791
02.06.2023 12:27
3. определить информационный объем стерео аудио файла длительностью звучания 1 секунда при высоком качестве звука(16 битов, 48 кгц)....
Desa11
22.11.2021 05:42
Требуется подсчитать, на сколько минут раньше будет заканчиваться k-й урок, если все перемены сократить на 5 минут. формат входных данных: вводится одно натуральное...
EnderDragon500
22.11.2021 05:42
Алфавит некоторого языка состоит из 32 символов. за сколько секунд мы сможем передать 1600 символов если скорость передачи составляет 100 байт в секунду?...
0987mnbv
22.11.2021 05:42
Составьте схемы состава следующих объектов аппаратное обеспечение компьютера...
ukubasov
22.11.2021 05:42
Существенным будем называть такое свойство которое наиболее важно для нас в данной ситуации...
katyadrogochinskaya
22.11.2021 05:42
Св программе qbasic .вот : дано трёхзначное число,определить количество единиц,десятков и сотен...
Алкадиеныч
02.07.2022 04:39
Требуется подсчитать, на сколько минут раньше будет заканчиваться k-й урок, если все перемены сократить на 5 минут....
Mariya1985
02.07.2022 04:39
Для каждого из данных слов истино высказывание : (ударение на первый слог) и не (количество букв чётное)? 1) корова 2) козёл 3) кошка 4) конь...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Begin
s:=0;
for i:= 1 to 15 do
begin;
Write('Введите оценку ученика №',i,' ');
readln(x);
if (x=2) then
s:=s+1;
end;
if (s=0) then writeln('Двоек нет!')
else writeln('Двойки есть! Всего двоек: ',s);
readln(x);
end.
//На скриншоте образец работы программы.