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

@ALEXEYB · Регистрация: 09.04.2010

Помогите пожалуйста на ABC паскаль сделать задачу:
Найти все трехзначные числа, средняя цифра которых равна сумме первой и третьей цифр

@yanyk1n · 09.04.2010, 17:30

Pascal

uses crt;
var i:integer;
 
begin
 clrscr;
 for i:=100 to 999 do if (i mod 10 + i div 100) = i mod 100 div 10 then write(i,' ');
 readln;
end.

@ALEXEYB · 09.04.2010, 18:10 **[ТС]**

Спасибо.А блок-схема как будет выглядеть?

@ALEXEYB 0 / 0 / 0 Регистрация: 09.04.2010 Сообщений: 7
		1
	Найти все трехзначные числа, средняя цифра которых равна сумме первой и третьей цифр 09.04.2010, 17:28. Показов 2935. Ответов 2 Метки нет (Все метки) Помогите пожалуйста на ABC паскаль сделать задачу: Найти все трехзначные числа, средняя цифра которых равна сумме первой и третьей цифр 0

@ALEXEYB 0 / 0 / 0 Регистрация: 09.04.2010 Сообщений: 7
	09.04.2010, 18:10 [ТС]	3
	Спасибо.А блок-схема как будет выглядеть? 0

Опции темы

Решение