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

@worldless · Регистрация: 03.03.2013

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

Найти количество трехзначных чисел, сумма цифр которых равна А, а само число заканчивается цифрой В ( А и В вводятся с клавиатуры).

Найти все симметричные натуральные числа ( палиндромы ) из промежутка от А до В (А и В вводятся с клавиатуры ).

Помогите пожалуйста написать код

Новичок · 05.03.2013, 18:02

1)

Pascal

program dz;
uses crt;
var i,k,sum,a,b:Integer;
f:Boolean;
begin
ClrScr;
Write('a=');
Readln(a);
Write('b=');
Readln(b);
for i:=100 to 999 do
begin
f:=False;
sum:=i div 100+i mod 100 div 10+i mod 10;
if (i mod 10=b) and (sum=a) then f:=True;
if f then inc(k);
end;
Writeln('Количество трехзначных чисел:',k);
Readln;
end.

Добавлено через 54 секунды
2)

Pascal

program dz;
uses crt;
var a,b,i,p,c,k:longint;
begin
ClrScr;
Write('a=');
Readln(a);
Write('b=');
Readln(b);
for i:=a to b do
begin
p:=0;
c:=i;
while c<>0 do
begin
p:=p*10+c mod 10;
c:=c div 10;
end;
if p=i then 
begin
if k=0 then Writeln('Числа-палиндромы из отрезка [a,b]:');
Write(i,' ');
inc(k);
end; 
end;
if k=0 then Writeln('Чисел-палиндромов на отрезке [a,b] нет!');
Readln;
end.

@worldless · 05.03.2013, 18:28 **[ТС]**

Спасибо большое!

@worldless 0 / 0 / 0 Регистрация: 03.03.2013 Сообщений: 8
		1
	Найти количество трехзначных чисел, сумма цифр которых равна А, а само число заканчивается цифрой В 05.03.2013, 15:13. Показов 3999. Ответов 2 Метки нет (Все метки) Найти количество трехзначных чисел, сумма цифр которых равна А, а само число заканчивается цифрой В ( А и В вводятся с клавиатуры). Найти все симметричные натуральные числа ( палиндромы ) из промежутка от А до В (А и В вводятся с клавиатуры ). Помогите пожалуйста написать код 0

@worldless 0 / 0 / 0 Регистрация: 03.03.2013 Сообщений: 8
	05.03.2013, 18:28 [ТС]	3
	Спасибо большое! 0

Опции темы

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

Решение