Равна ли сумма двух первых цифр числа сумме двух его последних

@Танюше4ка · Регистрация: 20.01.2012

Студворк — интернет-сервис помощи студентам

Определить, равна ли сумма двух первых цифр заданного четырехзначного числа сумме двух его последних цифр.

@Puporev · 04.03.2012, 13:51

Pascal

uses crt;
var n,a,b,c,d:integer;
begin
clrscr;
repeat
write('Введите 4х-значное число n=');
readln(n);
until(n>999)and(n<=9999);
a:=n div 1000;
b:=n div 100 mod 10;
c:=n div 10 mod 10;
d:=n mod 10;
if(a+b)=(c+d) then write('Сумма первых 2х цифр равна сумме 2х последних')
else write('Сумма первых 2х цифр не равна сумме 2х последних');
readln
end.

@Танюше4ка 0 / 0 / 0 Регистрация: 20.01.2012 Сообщений: 47
		1
	Равна ли сумма двух первых цифр числа сумме двух его последних 04.03.2012, 13:25. Показов 2285. Ответов 1 Метки нет (Все метки) Определить, равна ли сумма двух первых цифр заданного четырехзначного числа сумме двух его последних цифр. 0

Опции темы

Равна ли сумма двух первых цифр числа сумме двух его последних

Решение