Вопрос по информатике:
Определить, равна ли сумма двух первых цифр заданного четырехзначного числа сумме двух его последних цифр
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 03.08.2016 09:32
- Информатика
- remove_red_eye 8364
- thumb_up 25
Ответы и объяснения 2
var
str:string;
begin
readln(str);
if ((ord(str[1])+ord(str[2])) = (ord(str[3]) + ord(str[4]))) then write('Сумма равна')
else write('Сумма неравна');
end.
- 04.08.2016 08:10
- thumb_up 35
Uses crt;
var x:integer;
begin
write('Введи число:');
readln(x);
if (x>=1000) and (x<=9999) then
if (x div 1000)+(x div 100 mod 10)=(x mod 10)+(x mod 100 div 10) then
writeln('yes')
else writeln('no')
else writeln('error');
end.
- 05.08.2016 09:41
- thumb_up 47
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.