Question

Напишите программу для задачи: определить сумму цифр трехзначного числа кратных 4 На языке Паскаль!

Answer 1

PascalABC.NET 3.4.2, сборка 1814 от 02.10.2018

begin

 ReadInteger('n->').ToString.JoinIntoString(' ').ToIntegers

                                                             .Where(t -> t mod 4 = 0).Sum.Println;

end.

Answer 2

Конечно! Вот пример программы на языке Паскаль, которая находит сумму цифр трехзначного числа, кратного 4:

pascalCopy code
program SumOfDigits;

var
  number, digit, sum: integer;

begin
  sum := 0;

  writeln('Введите трехзначное число:');
  readln(number);

  if (number < 100) or (number > 999) then
  begin
    writeln('Введенное число не является трехзначным.');
    exit;
  end;

  if number mod 4 <> 0 then
  begin
    writeln('Введенное число не кратно 4.');
    exit;
  end;

  while number > 0 do
  begin
    digit := number mod 10;
    sum := sum + digit;
    number := number div 10;
  end;

  writeln('Сумма цифр трехзначного числа, кратного 4, равна ', sum);
end.

Программа запрашивает трехзначное число у пользователя, а затем проверяет, является ли оно трехзначным и кратным 4. Если число не соответствует этим условиям, программа выводит сообщение об ошибке и завершается. В противном случае, программа находит сумму цифр трехзначного числа и выводит результат.

Обратите внимание, что код будет выполняться в среде, поддерживающей язык Паскаль, и требует ввода числа от пользователя.