Question

НАПИШИТЕ ПРОГРАММУ В ПАСКАЛЕ!!!!!
дано трехзначное число кратна ли сумма его цифр шести
даю 45 баллов
и не нужно писать что это число 222
если не знаете не отвечайте, мне нужен тот чел который реально понимает информатику
(кто ответит сделаю лучшим ответом)

Answer 1

Ответ:

Var  

a,b,c,d,e:longint;  

begin  

readln(a);  

readln(c);  

d:=d+a mod 10;  

d:=d+a div 10 mod 10;  

d:=d+a div 100 mod 10;  

if d mod c = 0 then writeln('Yes') else writeln('No');  

end.

program zad1;

var     n : integer;

BEGIN

 Repeat

     writeln('введте трехзначное число');

     readln(n);

 Until n>99 and n<1000;

 Writeln((((n div 100)+((n div 10) mod 10)+(n mod  10)) mod 7)=0);

 

И все)) наверное не поймешь