Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
dhdhdh1
21.05.2020 04:45 •
Информатика
Посчитать количество шестёвок в массиве f(19)
Показать ответ
Ответ:
ulya061
07.10.2020 19:44
Var f:array [1..19] of real;
i,k:integer;
begin
k:=0;
for i:=1 to 19 do begin
Write('f[',i ,']=');
readln(f[i]);
if f[i]=6 then k:=k+1;
end;
Writeln('Количество шестерок: ',k);
readln;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
savech11
08.09.2020 05:18
Характеристика файла - это: 1)только имя файла . 2)только размер и дата создания файла. 3)имя файла и все его свойства....
JeepandChira13
31.12.2021 03:13
Код пикселя 110. Сколько цветов использовалось в этом изображении...
fananenkova
15.01.2020 22:53
С ИНФОРМАТИКОЙ Осталось 15 минут...
Vetaliks
04.12.2020 06:53
((X 5)+(x 3))*((x 2)+(x 1))...
tatiana342
05.07.2022 10:42
те кто шарив в информатике...
myka1
28.02.2020 19:57
Программа на вход получает два трехзначных числа. а) определите кратны ли оба этих числа числу 5 (программа выводит сообщение кратны или не кратны) б) если последние...
alekseyblohinov
05.03.2020 01:10
На числовой прямой даны три отрезка: p=[0,40], q=[20,45] и r=[10,50]. выберите такой отрезок а, что формула ((x∈p)⇒(x∈q)v((x∈a)⇒(x∉r)) 1 [5,20] 2 [10,15] 3 [15,20]...
тупоумная2525
14.01.2021 16:15
Нужна . Чему будет равняться k после выполнения программы Var m, k : integer; begin m:=1; k:=0; while (m 5) do m:=m+1; k:=k+m; writeln (k) end....
Thfhgdrhd
19.02.2022 21:12
Спользуя среду графического исполнителя, запрограммируйте рисование следующей фигуры:...
pomoshvdorogep0arzo
17.01.2020 09:15
Врезультате пересечения прямых, являющихся графиком линейной функции у=1/3x-1; y=2x-1; y=1/4x+4,25; образовался треугольник. постройте его. укажите точки пересечения....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
i,k:integer;
begin
k:=0;
for i:=1 to 19 do begin
Write('f[',i ,']=');
readln(f[i]);
if f[i]=6 then k:=k+1;
end;
Writeln('Количество шестерок: ',k);
readln;
end.