Question

Найти количество двухзначных натуральных чисел у которых первая цифра 5. Написать программу на языке ПАСКАЛЬ

Answer 1

var i, count: integer;

begin

   count:= 0;

   for i:=10 to 99 do

       if i mod 10 = 0 then count = count + 1;

   writeln(count);

end.

Answer 2

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

pascalCopy code
program CountNumbers;

var
  count: integer;

begin
  count := 0;

  for var i := 10 to 99 do
  begin
    var firstDigit := i div 10;  // Получаем первую цифру числа
    if firstDigit = 5 then
      count := count + 1;
  end;

  writeln('Количество двухзначных натуральных чисел с первой цифрой 5: ', count);
end.

Программа начинает с инициализации переменной count значением 0. Затем она выполняет цикл for с i от 10 до 99. В каждой итерации цикла, программа получает первую цифру числа i с помощью деления на 10 (i div 10). Если первая цифра равна 5, то переменная count увеличивается на 1.

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

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