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

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

01.03.2014, 11:59. Просмотров 3285. Ответов 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
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
01.03.2014, 11:59
Ответы с готовыми решениями:

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

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

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

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

2
890 / 222 / 95
Регистрация: 21.10.2012
Сообщений: 524
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
1642 / 1071 / 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
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
01.03.2014, 13:32

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

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

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

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

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


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

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

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