Консультация № 196627
10.10.2019, 10:04
0.00 руб.
0 3 1
Здравствуйте! У меня возникли сложности с таким вопросом:
Нужно вывести на экран 1 или 0 в зависимости от того, равна ли сумма двух первых цифр заданного четырехзначного числа сумме двух его последних цифр.

Обсуждение

давно
Студент
402651
154
10.10.2019, 10:18
общий
10.10.2019, 11:53
это ответ
Здравствуйте, dkhrebtovich!

Самый простой способ...
[code lang=pascal]{ Вывести на экран 1 или 0 в зависимости от того, равна сумма двух первых цифр
заданного четырехзначного числа сумме двух его последних цифр.}
Program Sum_cifr;
var
i:integer;
begin
readln(i);
writeln(ord((i div 1000)+(i mod 1000 div 100)=((i mod 100) div 10)+(i mod 10)));
end.[/code]
давно
Посетитель
403308
5
10.10.2019, 10:34
общий
Pascal ABC
давно
Старший Модератор
31795
6196
10.10.2019, 11:46
общий
(ord((i div 1000)+(i mod 1000 div 100)=((i mod 100) div 10)+(i mod 10)));

mod и div имеют одинаковые приоритеты, в правой части Вы расставили скобки, в левой забыли. Внимательней пожалуйста.
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Форма ответа