Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.57/7: Рейтинг темы: голосов - 7, средняя оценка - 4.57
heyHOLLA
0 / 0 / 0
Регистрация: 28.10.2013
Сообщений: 49
1

Дано трёхзначное число, кратна ли сумма его цифр 7?

01.03.2014, 11:59. Просмотров 1286. Ответов 2
Метки нет (Все метки)

дано трёхзначное число, кратна ли сумма его цифр 7?
так, вот, значит написала

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
program zad1;
var d,n,a,s,m,p:integer;
begin
writeln('введте трехзначное число');
readln(n);
m:=n div 100;
d:=n mod 100 div 10;
p:=n mod 10;
s:=p+d;
if s mod 7 = 0 then
writeln('да кратна')
else writeln('нет не кратна');
end.
а что ещё добавить, чтобы определялось трёхзначное число или нет, и если оно допустим, двухзначное, то выводило "это число не является трёхзначным"????
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
01.03.2014, 11:59
Ответы с готовыми решениями:

Дано трёхзначное число,кратна ли сумма его цифр семи?
дано трёхзначное число,кратна ли сумма его цифр семи? program zad1; var n,s,i,n1 : integer;...

Дано трёхзначное число, является ли сумма его цифр двухзначным числом
Дано трёхзначное число, является ли сумма его цифр двухзначным числом

Дано трёхзначное число N. Определить, какая из его цифр больше - первая или последняя. Если цифры равны, то выдать об этом сообщение.
Дано трёхзначное число N. Определить, какая из его цифр больше - первая или последняя. Если цифры...

Дано трёхзначное число. Определить число, полученное перестановкой цифр десятков и единиц
1.Дано трёхзначное число. Определить число, полученное перестановкой цифр десятков и единиц.

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

2
markiza-inc
482 / 196 / 89
Регистрация: 21.10.2012
Сообщений: 454
01.03.2014, 13:13 2
Попробуйте так:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
program zad1;
var     n,s,i,n1 : integer;
BEGIN
   repeat
    repeat
      writeln('введте трехзначное число (0-закончить)');
      readln(n);
      if not((n>=100)and(n<=999)) then writeln('Это число не является трехзначным!');
    until ((n>=100)and(n<=999))or(n=0);
    n1:=n;
    if n<>0 then
     begin
      s:=0;
      for i:=1 to 3 do
       begin
         s:=s+n mod 10;
         n:= n div 10;
       end;
      if s mod 7 = 0 then
         writeln('да кратна')
                     else
         writeln('нет не кратна');
     end;
     writeln;
    until n1= 0;
END.
1
APALoff
1641 / 1070 / 1081
Регистрация: 03.07.2013
Сообщений: 4,507
01.03.2014, 13:32 3
Pascal
1
2
3
4
5
Var n : Word;
Begin
  Readln(n);
  If (n>99) and (n<1000) then Writeln((((n mod 10)+(n div 100)+((n div 10) mod 10)) mod 7)=0);
End.
1
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
01.03.2014, 13:32

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

Дано шестизначное число. Найти сумму его цифр, а также число, получаемое при прочтении его цифр справа налево
Дано шестизначное число. Найти сумму его цифр, а также число, получаемое при прочтении его цифр...

Дано трехзначное число.Определить, является ли сумма его цифр двузначным числом?
№1 Дано трехзначное число.Опредилить являеться ли сума его цифр двухзначным числом?


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

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

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