Question

Определить кол-во чисел, кратных 5, трехзначных и сумму оканчивающих 9. (ПАСКАЛЬ)

Answer 1

Program F1tsku;
var x:integer;
begin
writeln ('Введите число');
readln(x);
if (x mod 10=9) and (x mod 5=0) then
writeln('Да') else writeln('Нет');
end.

Answer 2

Для решения этой задачи на языке Паскаль можно использовать цикл и условные операторы. Вот пример кода, который позволит определить количество чисел, кратных 5, трехзначных и сумму чисел, оканчивающихся на 9:

pascalCopy code
program CountNumbers;

var
  count: integer; // переменная для хранения количества чисел
  sum: integer; // переменная для хранения суммы чисел
  i: integer; // счетчик цикла

begin
  count := 0;
  sum := 0;

  for i := 100 to 999 do
  begin
    if (i mod 5 = 0) and (i mod 10 = 9) then
    begin
      count := count + 1;
      sum := sum + i;
    end;
  end;

  writeln('Количество чисел, кратных 5 и трехзначных:', count);
  writeln('Сумма чисел, оканчивающихся на 9:', sum);

end.

Программа использует цикл for, который проходит по всем трехзначным числам от 100 до 999. Внутри цикла проверяется условие (i mod 5 = 0) and (i mod 10 = 9), которое определяет, является ли число i кратным 5 и оканчивается на 9. Если условие истинно, то увеличиваем счетчик count на 1 и добавляем значение числа i к переменной sum. По окончании цикла выводим на экран значения count и sum.