Дано двузначное число. Определить кратна ли сумма его цифр числу а ?

[Оксаночка:)]

Дано двузначное число. Определить кратна ли сумма его цифр числу а ?? ВОТЬ...

[Базиля]

program zad1;
var n,a,k,m,p:integer;
begin
writeln('введите двузначное число');
readln(n);
writeln('введите число а');
readln(a);
m:=n div 10;
p:=n mod 10;
k:=p+m;
if k mod a = 0 then
writeln('кратна')
else writeln('нет');
end.

[Анатоль]

Блин, зачем тебе программирование, если ты такие задачи не умеешь решать?
Вот код:
program zadacha;
var
N,s,a : longint;
begin
read(n,a);
s := 0;
while n <> 0 do
begin
s := s + (n mod 10);
n := n div 10;
end;
if (s mod a) = 0 then
write('делится')
else
write('net');
end.

[Базиля]

Блин, зачем тебе программирование, если ты такие задачи не умеешь решать?

Знаешь, некоторые его просто проходят по программе, так сказать для общего развития, и не всем дается

[Оксаночка:)]

Дано трехзначное число. Определить больше ли числа (а) произведение его цифр...еще такая...я учусь на биофаке...

Сообщение от Базиля

Знаешь, некоторые его просто проходят по программе, так сказать для общего развития, и не всем дается

спасибо за понимание

[Базиля]

program zad1;
var d,n,a,k,m,p:integer;
begin
writeln('введте трехзначное число');
readln(n);
writeln('введите число а');
readln(a);
m:=n div 100;
d:=n mod 100 div 10;
p:=n mod 10;
k:=p*m*d;
if k>a then
writeln('да больше')
else writeln('нет');
end.

[Оксаночка:)]

спасибо...

Даны целые числа m, n. Если числа не равны, то заменить каждое из них одним и тем же числом, равным большему из исходных, а если равны, то заменить числа нулями...эту делать не надо...я только не знаю как написать условие

[Базиля]

if m<>n then
begin
if m>n then
n:=m
else
m:=n
end
else
begin
m:=0;
n:=0;
end;

вот все условия которые тебе понадобятся, с остальным я думаю разберешься?

[Sasha_Smirnov]

Сообщение от Оксаночка:)

...я учусь на биофаке...

Удачи в генной инженерии!