Вопрос по информатике:
I Составьте прграммы для решения следующих задач:
1. Дано дузначное число. Определить:
а) является ли произведение его цифр двузначным числом;
б) больше ли числа а сумма его цифр;
в) кратна ли трем сумма его цифр.
2*. Определить, является ли заданное шестизначное число счастливым.
(Счастливым называют такое шестизначное число, что сумма его первых трех цифр равна сумме его последних трех цифр).
ЯЗЫК ПРОГРАММИРОВАНИЯ ПАСКАЛЬ помогите пожалуйста хотя бы все пункты первого
- 04.06.2018 10:12
- Информатика
- remove_red_eye 4952
- thumb_up 36
Ответы и объяснения 1
1)
var s: string;
p, a: integer;
begin
read(s);
p := strtoint(s[1]) * strtoint(s[2]);
if (p.ToString.Length = 2) then writeln('a)Да')
else writeln('a)Нет');
write('Введите a:');
read(a);
if (a < (strtoint(s[1]) + strtoint(s[2]))) then writeln('б)Да')
else writeln('б)Нет');
if ((strtoint(s[1]) + strtoint(s[2])) mod 3 = 0) then writeln('в)Да')
else writeln('в)Нет');
end.
2)
var s:string;
begin
read(s);
if(s.Length=6)then if (strtoint(s[1])+strtoint(s[2])+strtoint(s[3])= strtoint(s[4])+strtoint(s[5])+strtoint(s[6]))then
write('Да')
else write('Нет');
end.
- 05.06.2018 03:05
- thumb_up 33
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.