задача-решение

[Ольга Федюкина]

1.Дано натуральное число.Верно ли,что сумма цифр числа больше А,а само число делится на А(число А ввести с клавиатуры)

2.найти количество делителей натурального числа,введенного с клавиатуры.Сколько из них четных

3.Найти все 2-значные числа,которые при умножение на 2 заканчиваются на 6,а при умножение на 3 заканчиваются на 4.

помогите решить

[Arhangel7]

а где решение ?

[Serge_Bliznykov]

Ольга, а Вы сами учиться собираетесь?

все три задачи на использование операторов MOD (получить остаток от деления) и DIV (целочисленное деление).
и задачи ОЧЕНЬ простые.

для затравки вот полное решение третьей задачи:

var i: integer;
begin
  for i:=10 to 99 do
    if ((i*2) mod 10 = 6 ) and ((i*3) mod 10 = 4 ) then WriteLn(i);
  readln
end.

[Ольга Федюкина]

конечно собираюсь учиться.просто у меня завтра контрольная по информатике и решение очень нужно.помогите ,пожалуйста, я некоторые сама решила-а на этих засела

[Leshii]

2)

 Uses crt;
var 
  i, k, chet, n: integer;
clrscr;
writeln('Vvedite chislo:');readln(n);
for i:=1 to n do begin
  if n mod i =0 then inc(k);
  if (n mod i=0) and ( i mod 2 = 0) then inc(chet);
end;
writeln(k);
writeln(chet);
readln;
end.

Пояснять что-то нужно?
Сейчас гляну первое...

[Ольга Федюкина]

спасибо тебе большое

[crazy horse]

конечно собираюсь учиться.просто у меня завтра контрольная по информатике и решение очень нужно.помогите ,пожалуйста, я некоторые сама решила-а на этих засела

Как всегда, зима наступила внезапно.

[Leshii]

1)

Uses crt;
var a, x: integer;
begin
crlscr;
readln(a);
x:=a div 100 mod 10 + a mod 100 div 10 + a mod 10;
writeln(x);
if (x>a) and (a mod x = 0 ) then writeln('verno') else
writeln('neverno');
readln;
end.

Для примера вводиш трехзначное число ( к примеру 123, сумма чисел после розбивки будет равна шести, то отсюда следует что сумма числа меньше самого числа и соотвественно не поделиться нацело если делить сумму на само число ). Хотя могу быть и не прав Но кто этим интересно должен был заниматься ...

[Ольга Федюкина]

спасибо,вы меня очень выручили)