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

@PrideX · Регистрация: 18.05.2011

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

@dr.dones · 11.06.2011, 10:43

Pascal

program summa;
uses
 crt;
var
 n,a1,a2,b1,b2:integer;
 
begin
 clrscr;
 write('Vvedite 4h znachnoe chislo: ');readln(n);
 
 a1:=n div 1000;
 a2:=(n div 100) mod 10;
 b2:=n mod 10;
 b1:=(n mod 100) div 10;
 
 if a1+a2=b1+b2 then write('summa ravna') else write('summa ne ravna');
 
 readln;
end.

@Vovcheg · 11.06.2011, 10:48

Pascal

uses crt;
var a,b,c,d,s1,s2,t:integer; k:boolean;
begin
  clrscr;
  write('Введите четырех значное число: '); readln(t);
  a:=t div 1000;
  b:=(t mod 1000) div 100;
  c:=(t mod 100) div 10;
  d:=t mod 10;
  s1:=a+b;
  s2:=c+d;
  k:=s1=s2;
  writeln(k);
  readln
end.

@PrideX 0 / 0 / 0 Регистрация: 18.05.2011 Сообщений: 7
		1
	Определить равна ли сумма двух первых цифр четырехзначного числа сумме его последних цифр. 11.06.2011, 09:02. Показов 20345. Ответов 2 Метки нет (Все метки) Определить равна ли сумма двух первых цифр четырехзначного числа сумме его последних цифр. 0

Опции темы

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

Решение