Question

Паскаль.найдите 10 первых натуральных чисел оканчивающихся на 7

Answer 1

Program znanija3;
var i, number:integer;
begin
   number:=0;
   while i <> 10 do begin
     Inc(number);
     if (number mod 10) = 7 then begin
       writeln(number);
       Inc(i);
     end;
   end;
end.


P.S. Inc(number) = number:= number+1

Answer 2

Чтобы найти первые 10 натуральных чисел, оканчивающихся на 7, можно использовать цикл и условие.

На языке программирования Паскаль, это можно сделать следующим образом:

program FindNumbers;

var
  i, count: integer;

begin
  count := 0;
  i := 7;

while count < 10 do
  begin
    writeln(i);
    i := i + 10;
    count := count + 1;
  end;
end.

В этой программе мы используем переменные `i` и `count`. `i` инициализируется значением 7, а `count` - нулевым значением.

Затем мы используем цикл `while`, чтобы проверить, что количество найденных чисел меньше 10. Внутри цикла мы выводим значение `i` на экран с помощью команды `writeln`.

Затем мы увеличиваем значение `i` на 10 и увеличиваем значение `count` на 1. Это гарантирует, что наше следующее число также будет оканчиваться на 7. После каждой итерации цикла проверяется, выполнено ли условие `count < 10`.

Таким образом, программа будет выводить первые 10 натуральных чисел, оканчивающихся на 7: 7, 17, 27, 37, 47, 57, 67, 77, 87, 97.