НУЖНО СДЕЛАТЬ
ВАРИАНТ 8, РАЗЛОЖИТЬ КАК НА ПАСКАЛЕ ABC, НАЧИНАЯ С program pig;
Ответы на вопрос:
program amountnumbers;
var
amount, number, a: integer;
begin
write('Введите трехзначное число: ');
read(number);
writeln('Введите число А:');
read(a);
while number > 0 do
begin
amount := amount + number mod 10;
number := number div 10;
end;
if (amount mod a = 0) then
writeln('Да')
else
writeln('Нет');
end.
Объяснение:
program amountnumbers; // Название программы
var
amount, number, a: integer; // Целочисленные переменные:
amount - сумма цифр трехзначного числа;number - трехзначное число, вводимое с клавиатуры;a - число для проверки на кратность.begin // Начало программы
write('Введите трехзначное число: '); // Вывод сообщения в консоль
read(number); // Считываем трехзначное число с клавиатуры
writeln('Введите число А:'); // Вывод сообщения в консоль
read(a); // Считываем число А с клавиатуры
while number > 0 do // Пока значение переменной number > 0
begin // Начало цикла
amount := amount + number mod 10; // Сумма цифр = сумма цифр + последняя цифра числа
number := number div 10; // Отделяем последнюю цифру от числа
end; // Конец цикла
if (amount mod a = 0) then // Если значение переменной amount делится на значение переменной A без остатка, тогда
writeln('Да') // Вывод сообщения в консоль
else // Иначе
writeln('Нет'); // Вывод сообщения в консоль
end. // Конец программы
Популярно: Информатика
-
ппсомо365701.03.2023 23:06
-
vladoosmartich29.10.2020 03:49
-
07221504.02.2022 23:08
-
aiskfjdUe24.04.2020 19:26
-
элллллляяяяя55505.01.2020 12:39
-
robotkiborg01.12.2020 02:08
-
dasha1232820.11.2021 19:24
-
yamarinaigorp00vfk04.08.2020 17:42
-
nastyushanaumenko03.04.2021 22:45
-
ydilovakata02.12.2022 19:51