tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Даны четыре целых числа.
Даны четыре целых числа. найти количество чисел кратных пяти. составить программу в паскале.заранее !
MrBOPOH
3 26.08.2019 14:20
0
Ответы
qoqo5
05.10.2020 21:06
Простая реализация без массива
uses crt;
var a, b, c, d, k: Integer;
begin
readln(a, b, c, d);
clrscr;
if (a mod 5) = 0 then inc(k);
if (b mod 5) = 0 then inc(k);
if (c mod 5) = 0 then inc(k);
if (d mod 5) = 0 then inc(k);
writeln(k);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
guiuhui
04.10.2019 16:20
Дано натупальное число n.определить кратно ли оно 3.нужно в паскале составить...
polyzaicka
29.08.2019 07:20
Вдвумерном целочисленном массиве положительные элементы заменить их квадратами...
щгоот
29.08.2019 07:10
Сколько различных символов можно закодировать с азбуки морзе, используя последовательности точек и тире, содержащие не менее пяти и не более восьми знаков? а. 480...
АняМур123
29.08.2019 07:10
Максу требуется пройти медкомиссию, состоящую из n различных врачей. уже у стойки регистрации макс понял, что день будет долгим: посещать врачей нужно в строго определённом...
лучшая40
29.08.2019 07:00
Файл размером 32 кбайт передаётся через некоторое соединение со скоростью 4096 бит в секунду. определите размер файла (в кбайт), который можно передать за то же время...
Сова2211
29.08.2019 07:00
Напишите программу,которая в последовательности натуральных чисел находит среднее арифметическое трехзначных чисел или сообщает,что таких чисел нет (выводит no).программа...
WhiteAlex
29.08.2019 07:00
Какая форма организации действий называется повторением пример алгоритма содиржащего повторение...
Sjsjssj
29.08.2019 06:50
Написать программу в паскале в массиве а (15) целых чисел поменять местами 5 и 13 элементы. вывести начальный и изменены массивы в строку через два пробела....
daut2001
29.08.2019 06:50
Как скопировать результат вычисления в текстовый документ...
kuznechikmarin
29.08.2019 06:50
Написать программу-найти в массиве из 5 целых чисел номера отрицательных элементов(вывести их на экран), если таких нет, то сообщить об этом...
Популярные вопросы
С7 класс в каком из перечисленных ниже случаев сила тяжести совершает...
3
Ниже названия живых организмов: тюлень,водоросли,рыба,мелкие ракообразные,белый...
2
Как река лена используется в хозяйстве...
1
Просклоняйте по временам предложение she (drink) coffee. (every...
3
Упершому сувої - 15 м тканини, а в другому - 11 м такої самої...
2
Заданне 1. калі ўзяць гукі 23-і, 30-ы, 25-ы, 32-і, 43-і, 60-ы...
1
Зоны корня, их характеристика и функции...
3
Составьте из данных слов ряды однородных и неоднородных определений....
1
Вставьте правильные ответы . 40 ! 14. fill in the gaps with either...
3
4-сынып, казак тыли 30_31 без .осы шак деген не?...
1
uses crt;
var a, b, c, d, k: Integer;
begin
readln(a, b, c, d);
clrscr;
if (a mod 5) = 0 then inc(k);
if (b mod 5) = 0 then inc(k);
if (c mod 5) = 0 then inc(k);
if (d mod 5) = 0 then inc(k);
writeln(k);
end.