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

@pasifi · Регистрация: 21.01.2011

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

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

@Puporev · 30.01.2011, 19:18

Pascal

uses crt;
var i,j,k,l:byte;
    n:integer;
begin
clrscr;
n:=0;
for i:=1 to 9 do
for j:=0 to 9 do
for k:=0 to 9 do
for l:=0 to 9 do
if i+j=k+l then
 begin
  write(i,j,k,l,'    ');
  n:=n+1;
  if n mod 240=0 then readln;
 end;
readln
end.

@pasifi · 30.01.2011, 22:22 **[ТС]**

нужна блок-схема!!!

@N@tali · 30.01.2011, 22:40

Сообщение от pasifi

нужна блок-схема!!!

Я бы на вашем месте сказала бы слово пожалуйста. Вежливость залог успеха!!!

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

Решение

Решение

@pasifi 0 / 0 / 0 Регистрация: 21.01.2011 Сообщений: 16
		1
	Найти все четырехзначные числа, такие, что сумма первых двух цифр равна сумме двух последних 30.01.2011, 18:59. Показов 5320. Ответов 3 Метки нет (Все метки) найти все четырехзначные числа, такие, что сумма первых двух цифр равна сумме двух последних 0

@pasifi 0 / 0 / 0 Регистрация: 21.01.2011 Сообщений: 16
	30.01.2011, 22:22 [ТС]	3
	нужна блок-схема!!! 0

Опции темы