Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
ГораСлез
30.10.2021 14:52 •
Информатика
Вгруппе 15 учащихся. известна оценка каждого. сколько было пятёрок p.s написать программу в паскале через while
Показать ответ
Ответ:
Linarikkomarik
27.07.2020 17:15
Var A,i:Byte;
S:integer;
Begin
i:=1;
S:=0;
While i<=15 do
Begin
A:=random(5)+1;
if A=5 then S:=S+1;
i:=i+1
End;
WriteLn('Кол-во пятёрок = ',S)
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
онелдпрлпр1
27.02.2021 17:55
Запишите команду if для решения : увеличить число d на 5 если оно кртно 7 и уменьшить на 20 в противном случае...
Izabella30
24.10.2021 01:09
Запишите if then else для решения : найти сумму s двух чисел m и n, если эти числа равны, в противном случае найти r -- разность m и n...
elizaveta08071999
08.09.2022 04:26
Какие свойства имеют спрайты в среде Scratch? Имя Все ответы правильные Положение на Сцене Размеры...
22222ssssssss
07.01.2022 00:08
Яка послідовність створення відеофільму...
lolik334
04.02.2022 21:08
Чему будут равны элементы массивы А после выполнения цикла, если сначала массива был заполнен так: 1 2 3 4 5 А 1 2 3 4 5 а) for i:=1 to 5 do A[i] := A[i] *A[i];...
Cuba125
20.08.2020 04:01
СОСТАВИТЬ СХЕМУ ТЕМЫ АЛГОРИТМ ТЕКСТ УЧБЕНИКА ОТПРАВЛЮ В ЛИЧНЫЕ СООБЩЕНИЯ ЕСЛИ ЗНАЕТЕ ОТВЕТ ...
Мнмтшоеа
29.04.2020 20:33
Після виконання деякої команди значення змінної а стало 10. Запишіть приклад команди, яку було виконано, якщо перед її виконанням значення цієї змінної було: 4; -5; 20....
petyasmolin
02.09.2021 20:27
Які музичні редактори ви знаєте?...
6polih1
22.06.2021 14:20
Даны два действительных положительных числа х и у. арифметические действия над числами пронумерованы (1 – сложение, 2 – вычитание, 3 – умножение, 4 – деление). составить программу,...
тима2011
25.11.2022 20:49
Выберите устройства устройства которыми должен быть укомплектован компьютер для работы с мультимедийными продуктами : микрофон принтер сканер аудиоколонки или наушники графический...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
S:integer;
Begin
i:=1;
S:=0;
While i<=15 do
Begin
A:=random(5)+1;
if A=5 then S:=S+1;
i:=i+1
End;
WriteLn('Кол-во пятёрок = ',S)
End.