Проверить истинность высказывания: "Сумма двух первых цифр данного четырехзначного числа равна сумме двух его последних цифр"

@Serjant0007 · Регистрация: 21.06.2010

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

Проверить истинность высказывания: "Сумма двух первых цифр данного четырехзначного числа равна сумме двух его последних цифр". С дивами и модами путаюсь. Спасибо огромное)))

Kodzaev · 25.03.2012, 12:26

Pascal

Uses crt;
Var
X: Integer;
f: Boolean;
Begin
Repeat
Write('Введите четырехзначное число: ');
Readln(x);
Until (x>999) and (x<10000);
If (x div 1000)+(x div 100 mod 10)=(x div 10 mod 10)+(x mod 10) Then
f:=True;
Writeln(f);
Readln
End.

@Serjant0007 2 / 2 / 1 Регистрация: 21.06.2010 Сообщений: 247
		1
	Проверить истинность высказывания: "Сумма двух первых цифр данного четырехзначного числа равна сумме двух его последних цифр" 25.03.2012, 12:16. Показов 4458. Ответов 1 Метки нет (Все метки) Проверить истинность высказывания: "Сумма двух первых цифр данного четырехзначного числа равна сумме двух его последних цифр". С дивами и модами путаюсь. Спасибо огромное))) 0

Опции темы

Проверить истинность высказывания: "Сумма двух первых цифр данного четырехзначного числа равна сумме двух его последних цифр"

Решение