Вывести на экран те числа, у которых сумма первых двух цифр равна сумме двух последних

@di# · Регистрация: 31.05.2011

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

39. Дан массив из n четырехзначных натуральных чисел. Вывести на экран только те, у которых сумма первых двух цифр равна сумме двух последних

@Amid007 · 03.06.2011, 15:38

Pascal

program mas;
uses crt;
var b: array[1..10] of integer;
    I: integer;
begin
 clrscr;
 for i:=1 to 10 do
 begin
  write('b[',i,']= ');
  readln(b[i]);
 end;
 for i:= 1 to 10 do
 if b[i] div 1000+b[i] div 100 mod 10=b[i] div 10 mod 10+b[i] mod 10 then writeln(b[i]);
 readln;
end.

@di# 0 / 0 / 0 Регистрация: 31.05.2011 Сообщений: 28
		1
	Вывести на экран те числа, у которых сумма первых двух цифр равна сумме двух последних 03.06.2011, 12:55. Показов 5922. Ответов 1 Метки нет (Все метки) 39. Дан массив из n четырехзначных натуральных чисел. Вывести на экран только те, у которых сумма первых двух цифр равна сумме двух последних 0

Опции темы

Вывести на экран те числа, у которых сумма первых двух цифр равна сумме двух последних

Решение