Верно ли, что число начинается и заканчивается одной и той же цифрой

@boris370 · Регистрация: 11.12.2009

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

1. Дано натуральное число. Верно ли, что число начинается и заканчивается одной и той же цифрой.
2. Найти все трехзначные числа, у которых сумма цифр = a, а само число делится на b. "a" и "b" вводятся с клавиатуры.

@crachka · 25.11.2011, 18:01

1)

Pascal

program pr;
var n,a,b:integer;
begin
read(n);
a:=n;
if n<10 then
writeln('это однозначное число')
else
begin
b:=n mod 10;
repeat
a:=a div 10;
until a<10;
if b = a then
writeln('первая и последняя цифры одинаковы')
else writeln('первая и последняя цифры различны');
end;
readln;
end.

Добавлено через 2 минуты
2)

Pascal

program pr;
var a,b,q,w,e,i:integer;
begin
writeln('ââåäè a è b');
read(a,b);
for i:=100 to 999 do
begin
q:=i div 100;
w:=i div 10 mod 10;
e:=i mod 10;
if (a=(q+w+e)) and (i mod b = 0) then
write(i,' ')
end;
readln;
end.

не судите строго пишу первые программы)))

@boris370 · 25.11.2011, 19:20 **[ТС]**

crachka, спасибо)

@boris370 -5 / 1 / 0 Регистрация: 11.12.2009 Сообщений: 51
		1
	Верно ли, что число начинается и заканчивается одной и той же цифрой 25.11.2011, 16:36. Показов 18427. Ответов 2 Метки нет (Все метки) 1. Дано натуральное число. Верно ли, что число начинается и заканчивается одной и той же цифрой. 2. Найти все трехзначные числа, у которых сумма цифр = a, а само число делится на b. "a" и "b" вводятся с клавиатуры. 1

@boris370 -5 / 1 / 0 Регистрация: 11.12.2009 Сообщений: 51
	25.11.2011, 19:20 [ТС]	3
	crachka, спасибо) 0

Опции темы

Верно ли, что число начинается и заканчивается одной и той же цифрой

Решение