Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
UmnikBest
04.09.2021 14:25 •
Информатика
Найти количество двузначных чисел оканчивающихся на 7. составить программу в pascal.
Ответ:
ynifar
08.10.2020 03:37
Var count, i: integer;
begin
count := 0;
for i := 10 to 99 do
if i mod 10 = 7 then
count := count + 1;
writeln(count);
end.
0,0
(0 оценок)
Ответ:
Ciropchik
08.10.2020 03:37
// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!
begin
Range(17,99,10).Count.Println
end.
Результат
9
0,0
(0 оценок)
Популярные вопросы: Информатика
рол145
26.07.2020 10:36
В каком поколение появился робот? информатика СОР и 5 звезд ...
Rostik9999
01.02.2023 12:37
Население города составляет 40 тыс. чел. каждый год оно увеличивается на 5%. определите численность населения через n лет нарисовать блок-схему...
lapohka181202
01.02.2023 12:37
От разведчика была получена шифрованная радиограмма переданная с использованием азбуки морзе при передаче радиограммы было потеряно разбиение на буквы но известно...
Burik130120
05.06.2020 13:04
Составьте программу, которая по введенному вами k - числу грибов печатает фразу , причем согласовывает окончание слова с числом k. количество грибов может быть любым...
shamilvip66
10.03.2022 14:04
Даны числа: 8; 20; 141; 3957; 10281. Используя MS Excel, вычисли среднее арифметическое данных чисел....
Ivan1128
16.06.2022 00:04
При угадывании целого числа в некотором диапозоне было полученно 6битсколько чилел содержит этот диапозон?...
марьяна126
16.06.2022 00:04
Найти сумму четных делителей введенного целого числа(pascal abc.net)...
iququwisjjs
16.06.2022 00:04
Сообщение записанное буквами из 256 символьного алфавита содержит 80 символов. какой объем информации оно несёт....
Awesome7
16.06.2022 00:04
Определить мощность алфавита если сообщение содержащее 40 символов занисает 30 байтов...
hlagga
16.06.2022 00:04
Запросить 40 чисел подсчитать количество чисел равных 0...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
begin
count := 0;
for i := 10 to 99 do
if i mod 10 = 7 then
count := count + 1;
writeln(count);
end.
// Внимание! Если программа не работает, обновите версию!
begin
Range(17,99,10).Count.Println
end.
Результат
9