Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 24.05.2017 10:30
- Информатика
- remove_red_eye 8285
- thumb_up 55
Ответы и объяснения 1
var
a:real;
begin
write('Введите число '); readln(a);
if (frac(a) = 0) and( trunc(a) mod 5 = 0) then
writeln('Число ', a ,' кратно 5')
else
writeln('Число ', a ,' некратно 5')
end.
- 25.05.2017 06:21
- thumb_up 68
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.