Вопрос по информатике:
Помогите с задачами
1) введите с клавиатуры 3 числа если они больше 10 то выводим слово успех иначе провал
2) генерируйте число от 10 до 99 если оно четное и больше 75 то вывести на экран сумму его чисел иначе разность
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 14.05.2018 05:19
- Информатика
- remove_red_eye 16765
- thumb_up 14
Ответы и объяснения 2
a,b,c:real;
Begin
Write('Введите три числа: ');ReadLn(a,b,c);
if (a>10)and(b>10)and(c>10) then WriteLn('успех')
else WriteLn('провал');
End.
Var
A:integer;
Begin
Randomize;
A:=random(90)+10;
WriteLn('Исходное число: ',A);
if (A mod 2 = 0)and(A > 75) then
Write('Сумма его цифр: ',A div 10 + A mod 10)
else
WriteLn('Разность его цифр: ',A div 10 - A mod 10)
End.
- 16.05.2018 02:11
- thumb_up 27
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.