1. 

   Ignore New Member

   Pascal. Помогите решить. Дано двухзначное число. Написать программу для определения: кратна ли сумма его цифршести?

    

   Ignore, 17 янв 2010

   #1
2. 

   Anna Leanidayna New Member

   Var b,a1,a2,S:integer;
   Begin
   readln(b); {вводим 2-ух значное число}
   a1:=b div 10;
   a2:=b mod 10;
   S:=a1+a2;
   if s mod 6=0 then writeln('Кратно') else writeln('не кратно');
   readln;
   end.

    

   Anna Leanidayna, 17 янв 2010

   #2

Ваше имя или e-mail:

Пароль:

Забыли пароль?

Запомнить меня