Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
1 / 1 / 0
Регистрация: 16.09.2012
Сообщений: 157
1

Определить делится ли оно на 95?

02.12.2012, 18:57. Показов 956. Ответов 3
Метки нет (Все метки)

20-значное число задано массивом цифр от 1 до 20.Определить делится ли оно на 95?
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.12.2012, 18:57
Ответы с готовыми решениями:

Ввести число Х и определить, делится ли оно на 2, на 5, на 3
Доброго вечера Уважаемые Форумчане, помогите пожалуйста с задачей!: Ввести число Х и определить,...

Для четного введенного числа определить, делится ли оно на 10, для нечетного - делится ли оно на 5
вечер добрый,помогите с програмкой на с++ условие:с клавиатуры вводиться целое число,для четного...

Ввести число Х и определить, делится ли оно на 2, на 5, на 3
Ввести число Х и определить, делится ли оно на 2, на 5, на 3. Создала поле для ввода числа...

Ввести число Х и определить, делится ли оно:
Ввести число Х и определить, делится ли оно: 1) на 2, 2) на 3, 3) на 5. Результаты...

3
Модератор
64059 / 47474 / 32728
Регистрация: 18.05.2008
Сообщений: 115,185
02.12.2012, 19:06 2
95=5*19
Число делится на 5 тогда и только тогда, когда последняя цифра делится на 5, т. е. если она 0 или 5.
Число делится на 19 тогда и только тогда, когда число десятков, сложенное с удвоенным числом единиц, делится на 19.
0
1 / 1 / 0
Регистрация: 16.09.2012
Сообщений: 157
02.12.2012, 19:09  [ТС] 3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
uses crt;
var c:array[1..20] of integer;
i,r:integer;
begin
clrscr;
for i:=1 to 20 do readln(c[i]);
for i:=1 to 20 do write (c[i]);
r:=c[1];
for i:=2 to 20 do
begin
r:=r*20+c[i];
r:=r mod 95;
end;
if r=0 then writeln('yes') else
if r<>0 then writeln ('no');
readln ;
end.
Подскажите что здесь не правильно?
0
Модератор
64059 / 47474 / 32728
Регистрация: 18.05.2008
Сообщений: 115,185
02.12.2012, 19:25 4
C массивом это будет как-то так.
Pascal
1
if(a[n] in [0,5])and((a[n-1]+2*a[n]) mod 19=0) then write('делится')
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
02.12.2012, 19:25

перевод строки в число, определить делится ли оно на 4
пожалуйста помогите! нужно определить делится ли строка на 4. я так понял что функция atoi не...

Если число делится на 6, то оно делится на 2 и на 3. Доказать на ИП 1-ого порядка
Чтобы доказать утверждение что если число делится на 6, то оно так делится на 2 и на 3, я введу...

Определить все цифры в цифровой записи числа, на которые оно делится без остатка
Добрый вечер. Помогите, пожалуйста, написать программу. Дано натуральное четырехзначное число....

На машине Тьюринга записано число в двоичной сист.счисления. Как определить, делится ли оно на 3
НА машине Тьюринга записано число в двоичной сист.счисления, как определить делится ли оно на 3?...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.