Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 23.05.2014, 13:12   #1 (permalink)
Gex
Новичок
 
Регистрация: 23.05.2014
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Задача в Паскале

Число делится на 11 если сумма цифр, стоящих на нечетных позициях в числе равна сумме цифр стоящих на четных позициях. Написать программу проверки делимости числа и, вводимого с клавиатуры, на 11
Gex вне форума   Ответить с цитированием

Старый 23.05.2014, 13:12
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Очень эффективно в решении проблемы прочитать аналогичные обсуждения

Задача на Паскале
Задача на Паскале АБС

Старый 23.05.2014, 14:39   #2 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,838
Сказал(а) спасибо: 316
Поблагодарили 542 раз(а) в 183 сообщениях
Репутация: 101510
По умолчанию

Цитата:
Сообщение от Gex Посмотреть сообщение
Число делится на 11 если сумма цифр, стоящих на нечетных позициях в числе равна сумме цифр стоящих на четных позициях. Написать программу проверки делимости числа и, вводимого с клавиатуры, на 11
Да без проблем:
Код:
Var
 N:Integer;

Function Test_11(Q:Integer):boolean;
var
 m,S1,S2,P:integer;
begin
 S1:=0;
 S2:=0;
 P:=Q;
 repeat
  m:=P mod 10;
  Inc(S1,m);
  P:=P div 100;
 until P=0;
 P:=Q div 10;
 repeat
  m:=P mod 10;
  Inc(S2,m);
  P:=P div 100;
 until P=0;
 Test_11:=S1=S2;
end;

Begin
 Repeat
  Write('Enter N (0 to quit) ');
  Readln(N);
  if N>0 then Writeln(Test_11(N));
  writeln;
 Until N=0;
End.
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 22:11.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.