Вход
Регистрация
Спроси здесь
Все
Биология
Информатика
Видео-ответы
Физика
Французский язык
Русский язык
Қазақ тiлi
История
Окружающий мир
География
Обществознание
Алгебра
Психология
МХК
Другие предметы
Английский язык
Українська література
Право
ОБЖ
Немецкий язык
Українська мова
Беларуская мова
Музыка
Химия
Экономика
Геометрия
Литература
Показать все предметы
Показать меньше предметов
lolSashalolo
23.07.2019 10:10 •
Информатика
Решить программу на pascal abc. : найти количество четных чисел из 20 целых случайных чисел из любого интервала.
Показать ответ
Ответ:
kirill23710
23.09.2020 22:58
Var i,a,b:integer;
Begin
Randomize();
for i:=1 to 20 do
begin
a:=Random(0,50);
if (a mod 2 = 0) then b:=b+1;
end;
Writeln(b)
End.
0,0
(0 оценок)
Ответ:
НикаКолядина2000
24.10.2020 12:59
Var a,k,i:integer;
begin
randomize;
k:=0;
for i:=1 to 20 do begin
a:=-200+random(401);
write(a, ' ');
if a mod 2 = 0 then k:=k+1;
end;
writeln;
writeln(k);
end.
0,0
(0 оценок)
Ответ:
вероника04122006
24.10.2020 12:59
Var i,a,b:integer;
Begin
Randomize();
for i:=1 to 20 do
begin
a:=Random(0,50);
if (a mod 2 = 0) then b:=b+1;
end;
Writeln(b)
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
Barkinhoev06isl
16.07.2019 16:20
На судне рядом расположены 4 каюты, в которых живут 4 матроса: виталий, степан, федот и игнат. известно, что каждый из них владеет ровно одной из следующих морских профессий:...
KatyshaBym
16.07.2019 16:20
Пример двух классов объекты которых находятся в отношении...
lingvini2013
16.07.2019 16:20
Назовите устройства мультимедийной обработки информации (по информатике)....
mariamyp
16.07.2019 16:20
Вкаких системах счисления выполняется неравенство 0,35 + 0,5 + 0.15 1?...
doc9w
16.07.2019 16:10
1. (true v true)v(true v false)= 2. ((false v true)v true)v true= 3. (false v true)v(true v false)= 4. (false & true)& true= 5. true & (true & true)&...
Kirill91623
16.07.2019 16:10
Для хранения текста в кодировке ascii требуется х битов. сколько страниц займет этот текст, если на странице размещается 30 строк по 70 символов в строке....
Ариэль1606
16.07.2019 14:22
определить, какие значения x, y, z будут выведены после выполнения фрагмента программы на алгоритмическом языке.x=-3y=10z=-2y=2*x+yz=y*2-z/2x=y+zвывод x,y,zварианты ответов:...
61FoX16
16.07.2019 14:43
Решить логическое уравнение варианты ответов (один или несколько)1) 01012) 11103) 4) 01005) 10016) 10007) 10118) 01119) 101010) 11) 110112) 000113) 001114) 001015) 011016)...
yuriymakarov1
16.07.2019 15:07
Определить, какое значение переменной x будет выведено после выполнения фрагмента программы на алгоритмическом языке....
Nuri011
16.07.2019 15:09
Напишите программу на паскаль авс которая будет выдавать количество людей поступивших куда либо при выделении текста, ! в условие могут быть несколько раз одинаковые...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
КОМПАНИЯ
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ и учителей
Сообщество родителей
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
Установи приложение
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь понять?
Спроси здесь
Begin
Randomize();
for i:=1 to 20 do
begin
a:=Random(0,50);
if (a mod 2 = 0) then b:=b+1;
end;
Writeln(b)
End.
begin
randomize;
k:=0;
for i:=1 to 20 do begin
a:=-200+random(401);
write(a, ' ');
if a mod 2 = 0 then k:=k+1;
end;
writeln;
writeln(k);
end.
Begin
Randomize();
for i:=1 to 20 do
begin
a:=Random(0,50);
if (a mod 2 = 0) then b:=b+1;
end;
Writeln(b)
End.