Статистика
Всего в нашей базе более 4 327 664 вопросов и 6 445 978 ответов!

Дано тризначне число. Чи кратна сума його цифр семи? Програма на мові Паскаль

5-9 класс

Ryangayka 12 мая 2013 г., 21:36:14 (10 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Stashevskiy
12 мая 2013 г., 23:43:26 (10 лет назад)

var
  m, n, n10, n100: integer;

begin
  write('Введите трехзначное число: ');
  readln(m);
  if (m > 99) and (m < 1000) then
  begin
    n100 := m div 100;
    n10 := (m mod 100) div 10;
    n := m mod 10;
    if (n + n10 + n100) mod 7 = 0 then writeln('Сумма цифр кратна семи')
    else writeln('Сумма цифр не кратна семи')
  end
end.

Тестовое решение:

Введите трехзначное число: 473
Сумма цифр кратна семи


Ответить

Другие вопросы из категории

Студенты педагогического института организовали эстрадный квартет. Михаил играет на саксофоне.Пианист учится на географическом

факультете.Ударника зовут не Валерием, а студента географического факультета зовут не Леонидом. Михаил учится не на историческом факультете.Андрей не пианист и не биолог.Валерий учится не на физическом факультете, а ударник не на историческом.Леонид играет не на контрабасе.На каком инструменте играет Валерий и на каком факультете он учится?

Паскаль, помогите!!!

Дан фрагмент программы, который решает задачу поиска номера последней минимальной цифры в записи десятичного целого числа (считается, что цифры в числе пронумерованы справа налево) и выводит ее на экран. Определите, какой оператор необходимо вставить вместо троеточия ( . . . ), чтобы правильный результат выдавался для любого целого числа N. Все используемые переменные имеют целый тип данных. Ответ записывайте без пробелов.
на языке Паскаль
readln(N);
MC:=9; I:=0; K:=1; N:=abs(N);
while N< >0 do
begin
С:=N mod 10; N:=N div 10;
I:=I+1;
if ... then
begin
MC:=C; K:=I;
end;
end;
writeln(K); .
10 минут осталось, подалуйста.

Читайте также

1) дано четырёхзначное число. вывести максимальную и минимальную цифру. pascal abc

2) дано четырёхзначное число. Что больше: произведение цифр числа или их утроенная сумма. pascal ABC

Помогите по программе paskal : 1.дано целое число.напишите программу которая уменьшает на 2 модуль этого числа и выводит на экран монитора

результат

2.дано целое число.напишите,программу которая выводит на экран последнюю цифру данного числа,затем возводит ее в квадрат и выводит на экран монитора результат

даны два числа. Если первое число нечетное, то найти сумму кубов, а иначе - куб суммы. даны три числа. Если хотя бы одно из чи

сел - отрицательное, то найти Iа+ b+cI иначе а+b+c +d в корне.

Даны три числа. Если произведение данных чисел - отрицательное, то каждое число возвести в квадрат, иначе найти модуль каждого числа

ПОМОГИТЕ ОЧЕНЬ ПРОШУ

1)составить программу, которая подсчитает объем любого шара по формуле: V=4/3Пr^3 2)даны действительные числа x и y. необходимо определить

принадлежит ли точка с координатами (x,y) окружности с радиусом R и центром в точке (x1,y1).

3)дан одномерный числовой массиф В(16). Необходимо вывести на экран индексы элементов значения, которых равны числу P.

cрочно надо на языке паскаль составить плиз)

1)Определить, является ли числоа делителем числа b. Даны вещественные числа х и у, не равные друг другу. Меньшее из

этих двух чисел заменить половиной их суммы, а большее — их удвоенным произведением.

2)Даны вещественные числа х и у, не равные друг другу. Меньшее из этих двух чисел заменить половиной их суммы, а большее — их удвоенным произведением.



Вы находитесь на странице вопроса "Дано тризначне число. Чи кратна сума його цифр семи? Програма на мові Паскаль", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.