Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 15.07.2015 00:34
- Информатика
- remove_red_eye 18894
- thumb_up 14
Ответы и объяснения 1
// Внимание! Если программа не работает, обновите версию!
№1
begin
var n:=Abs(ReadInteger('Введите 4-х значное число'));
var d:array[1..4] of integer;
for var i:=1 to 4 do begin
d[5-i]:=n mod 10;
n:=n div 10
end;
if (d[1]+d[2]).IsOdd then Writeln(d[3]+d[4])
else Writeln(d[4]*d[3])
end.
Примеры
Введите 4-х значное число 3528
16
Введите 4-х значное число 1639
12
№2
begin
var n:=ReadInteger('Введите 5-и значное число');
var s:=Abs(n).ToString;
if s[3]
Writeln(s)
end.
Примеры
Введите 5-и значное число 15382
18352
Введите 5-и значное число 13042
23041
- 16.07.2015 12:53
- thumb_up 34
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.