Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
диана2437
07.02.2021 23:37 •
Информатика
Вгруппе 15 учащихся. известна оценка каждого. сколько было пятёрок p.s написать программу в паскале через while
Показать ответ
Ответ:
kristinaboss15
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 оценок)
Популярные вопросы: Информатика
RealPacani
05.06.2022 03:12
Посоветуйте хороший недорогой ноутбук чтобы хорошо Симс 4 тянул...
Angel4892
19.09.2020 00:55
Хоть задание и легкёе все подробно объяснить...
PonchikPonchikovuy
25.11.2021 14:03
1.драмматургия-это 2.стиль в музыке сочитающий в себе элементы джаза и легкой симфонической музыке 3.отец симфонии.кто? 4.опера м.и. глинки рассказы о подвиги констромского крестьянина...
Dishame
13.04.2022 04:34
10 предложений с причастным оборотом из рассказа житие александра невского....
tt9692069
25.11.2021 14:03
Ты уже знаешь, что писатели используют разные приёмы , чтобы рассказать о своём герое: подробно описывают его наружность, говорят о поступках, мыслях и чувствах. 0 какими приёмами...
aselja228
16.02.2022 16:09
Сформулюйте 2-3 поради щодо використання тлумачного словника. іть будь ласка ...
Miheevf
24.09.2021 13:20
Обж 8 класс эссе на тему техногенные аварии приморского края...
sarinaddnk238
25.11.2021 14:03
Алгоритм решения неполных квадратных уравнений...
debchai123
06.02.2023 05:04
Дано: r1=4 ом, r2=3 ом, r3=15 ом, r4=12 ом, r5=8 ом, r6=2,2 ом i=6 а найти =u1, u2, u3, u4, u5, u6 i2, i3, i4, i5, i6...
FisicAnya
25.11.2021 14:03
3примера ограничений ветвей власти в рф...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.