Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Якoрь
04.09.2020 10:44 •
Информатика
Вводится 7 чисел.посчитайте количество чисел, которые заканчиваются на 5.паскаль
Показать ответ
Ответ:
debnatkh
04.10.2020 18:56
Var a,i,k:integer;
begin
k:=0;
for i:=1 to 7 do
begin
write(i,'-е число = ');
readln(a);
if a mod 10 = 5 then k:=k+1;
end;
writeln('k = ',k);
end.
Пример:
1-е число = 68
2-е число = 15
3-е число = 751
4-е число = 935
5-е число = 47
6-е число = 512
7-е число = 370
k = 2
0,0
(0 оценок)
Ответ:
violetakoshtura
04.10.2020 18:56
Var a:array [1..7] of integer;i,n:integer;beginn:=0;For i:=1 to 7 dobeginread (a[i]);If (a[i] mod 10)=5 thenn:=n+1;end;writeln (n);end.
При условии, что числа - целые
0,0
(0 оценок)
Популярные вопросы: Информатика
milla25
08.05.2021 06:47
Перечислите условия отбора, используемых в СУБД Access......
Данил30576
14.09.2021 08:44
СтатистикаВася не любит английский язык, но каждый раз старается получить хотя бы четвёрку за четверть, чтобы оставаться ударником. В текущей четверти Вася заметил следующую закономерность:...
Fo0lHardy
07.10.2022 00:51
На два входа черного ящика цепочки из двоичных чисел 1 и 0. если хотя бы на один вход подается 1, то на выходе образуется 1, в противном случае, на выходе будет 0. какая цепочка из...
kizzka
07.10.2022 00:51
Что можно хранить функции компьютера...
АУЕшник2281337
27.06.2020 15:04
Windows form apllication!! У циклі намалювати n горизонтальних відрізків.У всіх ліній координати найвищої точки однакові,відстані між ними теж однакові.Бцдь-який наступний відрізок...
15кк
04.07.2022 21:23
У першому декілька відповідейу другому ваша відповідь...
crazy660
04.04.2023 22:55
УМОЛЯЮ. НАРИСУЙТЕ СХЕМУ К ПРОГРАММЕ НА ФОТОГРАФИИ. Я ВАС ПРИМЕР ФОТОГРАФИЯ ВТОРАЯ....
fa7b3ar
26.03.2023 14:50
Расположите этапы создание 3D-понарамы в правильном порядке...
koren27
18.06.2020 08:41
ПРЯМ ОЧЕНЬ Для чего используется компьютерная графика в компьютерном математическом моделировании?...
snagaytsev1
27.04.2022 01:53
Алгоритм, записаний спеціальною мовою і призначений для виконання комп ютером...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
k:=0;
for i:=1 to 7 do
begin
write(i,'-е число = ');
readln(a);
if a mod 10 = 5 then k:=k+1;
end;
writeln('k = ',k);
end.
Пример:
1-е число = 68
2-е число = 15
3-е число = 751
4-е число = 935
5-е число = 47
6-е число = 512
7-е число = 370
k = 2
При условии, что числа - целые