1. Информатика
  2. Написать программу «выделение

Написать программу «выделение цифр в записи числа» дано трехзначное число. определить, является ли сумма его цифр кратна 3 и 5.

шаядпчдчр шаядпчдчр    2   21.05.2019 18:00    0

Ответы
nikaz1 nikaz1  16.06.2020 14:46

var

a,s,n:integer;

begin

repeat 

write ('A =');readln(a);

until (a>=100) and (a<=999);

n:=a; 

while n div 10 <> 0 do begin

n:=a; 

s:=s+a mod 10;

a:=a div 10;

end;

if (s mod 3 = 0) or (s mod 5 = 0) then writeln ('Yes') else writeln ('No');

readln;

end.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
bestway555 bestway555  23.02.2021 17:56
Определите значение переменной D после исполнения следующего алгоритма если переменным A, B, C были присвоены значения 10, 12 и 100 соответственно​...
DЕNA DЕNA  18.09.2019 06:10
Вробототехнике используют законы механике. если первая шестеренка вращается против часовой стрелки то как будет вращаться последняя шестеренка?...
SekretKtoYa SekretKtoYa  18.09.2019 06:10
Напишите программу в которой вводятся два числа a и b зачем первое число уменьшается в 2 раза а 2 увеличивается на 30 выведите изменения значения переменной.(pascal abc)...
ALENAFOKS ALENAFOKS  31.03.2021 20:10
Как узнать номер человека, если известно имя и фамилия? (Несовершеннолетний возраст)...
alex2002fedorov alex2002fedorov  31.03.2021 20:11
Напишите программный код для решения задачи: ввести массив действительных чисел с клавиатуры и вывести его на экран (с цикла for) с указанием номера элемента; размер массива...
Linamouse Linamouse  31.03.2021 20:12
Напишите программный код для решения задачи: сгенерировать массив чисел из 20 элементов, выбирая значения из диапазона [-100,100], вывести массив на экран....
natalichexova natalichexova  09.12.2021 21:51
C# Нужно объяснить, почему именно так задаются числа с1 и с2 using System; namespace ConsoleApp25 { class Program { static void Main(string[] args) { for (int i = 99;...
Ильха1 Ильха1  23.02.2022 03:20
Напишите программу которая введенное имя выводит трижды (на отдельных строках). Sample Input 1: ВасяSample Output 1: Вася Вася Вася Sample Input 2: Петя Sample Output 2:...
kozarmarjna15 kozarmarjna15  23.02.2022 02:55
, ЗАДАЧА ПО ИНФОРМАТИКА С ГРАФАМИ, ТАБЛИЦА СТОИМОСТЕЙ МАРШРУТОВ, ДАЮ МАКСИМАЛЬНОЕ КОЛ-ВО...
маришка197 маришка197  24.05.2020 11:10
Прямохождение возникло:А. Дрипитеков. Б. Австралопитеков. В. Хемогетеротрофный. ​...

Популярные вопросы