Question

Цикл с параметром паскаль вывести все трехзначные числа оканчивающиеся на 13;42

Answer 1

Program Thirteen_FortyTwo;
var
  i: integer;
  s: string;
begin
  for i := 100 to 999 do
  begin
    str (i,s);
    if (copy (s, 2, 2) = '13') or (copy (s, 2, 2) = '42') then writeln(s);
  end
end.

Answer 2

1)
var i, x: integer;
begin
for i:=1 to 9 do
   begin
   x:=i*100+13;
   write(x: 4)
   end
end.

2)
var i, x: integer;
begin
for i:=1 to 9 do
   begin
   x:=i*100+42;
   write(x: 4)
   end
end.

Answer 3

Цикл с параметром в Паскаль

Цикл с параметром в Паскаль (или for-цикл) позволяет выполнять повторяющиеся действия определенное количество раз. В отличие от цикла while, где условие продолжения цикла определяется внешним образом, for-цикл имеет встроенный механизм для определения количества итераций.

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

for <параметр> := <начальное_значение> to <конечное_значение> do
  <тело_цикла>

`<параметр>` - переменная, которая будет использоваться для отслеживания текущего значения в каждой итерации цикла. Это обычно целочисленная переменная.

`<начальное_значение>` - начальное значение параметра.

`<конечное_значение>` - конечное значение параметра. Цикл будет выполняться, пока значение параметра не достигнет этого значения.

`<тело_цикла>` - блок кода, который будет выполняться на каждой итерации цикла.

Вывод трехзначных чисел, оканчивающихся на 13 и 42

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

Вот пример кода на Паскале, который реализует это:

program ThreeDigitNumbers;
var
  i: integer;
begin
  for i := 100 to 999 do
  begin
    if (i mod 100 = 13) or (i mod 100 = 42) then
      writeln(i);
  end;
end.

В этом коде мы используем цикл с параметром `i`, который принимает значения от 100 до 999. Внутри цикла мы проверяем, являются ли последние две цифры числа равными 13 или 42, используя оператор модуля `%`. Если условие выполняется, то мы выводим число на экран с помощью процедуры `writeln`.

Запустив эту программу, вы увидите вывод всех трехзначных чисел, оканчивающихся на 13 и 42:

113
213
313
413
513
613
713
813
913
142
242
342
442
542
642
742
842
942

Это все трехзначные числа, оканчивающиеся на 13 или 42.