Страница 1 из 1
Помогите пожалуйста, простая задачка!
Добавлено: 06 дек 2009, 20:35
Dimon174
Сам я не понимаю, я такое в школе не проходил, надо девушке. Задание такое: Дано натуральное число, надо найти 1) сумму его цифр, 2) Верно ли, что число начинается и заканчивается одной и той же цифрой. С первой частью задачи мне помогли, а вот вторая... Помогите дописать пожалуйста, буду очень признателен.
Код: Выделить всё
program 1;
uses crt;
var a:longint;
i,k,s:integer;
begin
clrscr;
writeln('ввод числа');
readln(a);
s:=0;
while a>0 do
begin
k:=a mod 10;
a:=a div 10;
s:=s+k;
end;
writeln(s);
readkey;
end.
Re: Помогите пожалуйста, простая задачка!
Добавлено: 06 дек 2009, 20:52
Newbie
Код: Выделить всё
program a1;
uses crt;
var a:longint;
i,k,s:integer;
first, last : integer;
begin
clrscr;
writeln('ввод числа');
readln(a);
if a > 10 then
begin
first := a mod 10;
a := a div 10;
while a>0 do
begin
last:=a mod 10;
a:=a div 10;
end;
writeln(first = last);
end
else
writeln(true);
readkey;
end.
как то так)
Re: Помогите пожалуйста, простая задачка!
Добавлено: 07 дек 2009, 11:57
Хыиуду
str(A, mystr);
writeln(mystr[1]=mystr[length(mystr)]);
Re: Помогите пожалуйста, простая задачка!
Добавлено: 07 дек 2009, 13:42
Dimon174
Огромное спасибо!! Если вам не трудно, помогите еще с одной задачей, пытался разобраться сам, нашел учебники за 10 11 класс, но так ничего и не понял(
Найти все трехзначные числа, сумма цифр которых равна А, а само число делиться на В (А и В вводятся с клавиатуры)
Re: Помогите пожалуйста, простая задачка!
Добавлено: 08 дек 2009, 10:43
Хыиуду
for i:=100 to 999 do if (i div 100+i div 10 mod 10 + i mod 10=A) and (i mod b=0) then writeln(i);