Question

Найти все двузначные числа, которые заканчиваются на 0 и 5.(Паскаль) Циклом с предусловием. СРОЧНО!!!!

Answer 1

Ответ:

var

n: integer;

begin

n := 10;

while n < 100 do

begin

if n mod 5 = 0 then Writeln(n);

n := n + 1;

end;

end.

Answer 2

Конечно! Вот пример программы на языке Pascal, которая найдет все двузначные числа, заканчивающиеся на 0 и 5 с использованием цикла с предусловием:

pascalCopy code
program FindNumbers;

var
  number: integer;

begin
  number := 10; // Начинаем с наименьшего двузначного числа, которое заканчивается на 0

  while number <= 95 do
  begin
    writeln(number);
    number := number + 5; // Увеличиваем число на 5 при каждой итерации
  end;
end.

Программа начинает с числа 10 и последовательно увеличивает его на 5 при каждой итерации цикла. Цикл продолжается, пока число меньше или равно 95 (последнее двузначное число, заканчивающееся на 5). Каждое число выводится на экран с помощью процедуры writeln.

Запустив эту программу, вы получите следующий вывод:

Copy code
10
15
20
25
30
35
40
45
50
55
60
65
70
75
80
85
90
95

Таким образом, найдены все двузначные числа, заканчивающиеся на 0 и 5.