Новые сообщения · Правила  
Страница 1 из 11
Модератор форума: Berestovskiy 
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Помогите пож-та... Заранее Благодарен (задачки)
Помогите пож-та... Заранее Благодарен
Обращаюсь к вам за помощью, тк СОВСЕМ не понимаю паскаль, не мое это.. В школе задали задачки, но я даже понять не могу о чем там идет речь...
1. Дано натуральное число:
• найти количество четных цифр числа;
• верно ли, что данная цифра А встречается в числе более двух раз (А вводить с клавиатуры).
2. Найти все четырехзначные числа, у которых сумма крайних цифр равна сумме средних цифр, а само число делится на 6 и 27.
3. Найти количество различных цифр данного натурального числа.
1 | Автор: fool | 2012-09-23, 20:49   |  Репутация: [ + 0 ]
Quote (fool)
1. Дано натуральное число:
• найти количество четных цифр числа;

var
a,s:integer;
begin
read(a);
while a div 10<>0 do begin
if a mod 10 mod 2=0 then s:=s+1;
a:=a div 10;
end;
writeln(s);
end.

Quote (fool)
• верно ли, что данная цифра А встречается в числе более двух раз (А вводить с клавиатуры).

var
c,a,s:integer;
begin
read©;
read(a);
while c div 10<>0 do begin
if c mod 10 = a then s:=s+1;
c:=c div 10;
end;
if s>=2 then writeln('yes') else writeln('no');
end.


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
2 | Автор: Berestovskiy | 2012-09-24, 16:29   |  Репутация: [ + 211 ]
Quote (fool)
2. Найти все четырехзначные числа, у которых сумма крайних цифр равна сумме средних цифр, а само число делится на 6 и 27.

var
i:integer;
begin
for i:=1000 to 9999 do
if (i mod 10+i div 1000=i mod 100 div 10+i div 100 mod 10)
and (i mod 6=0) and (i mod 27=0) then write(i,' ');
end.


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
3 | Автор: Berestovskiy | 2012-09-24, 16:33   |  Репутация: [ + 211 ]
Благодарю тебя, О Добрый человек)
4 | Автор: fool | 2012-09-24, 17:30   |  Репутация: [ + 0 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Помогите пож-та... Заранее Благодарен (задачки)
Страница 1 из 11
Поиск: