Регистрация
данил2908
30.03.2023 07:01
Информатика
Есть ответ 👍

Через : Задача

Вывести все квадраты натуральных чисел, не превосходящие данного числа N.

Пример: N=50 | 1 4 9 16 25 36 49

Решение

Алгоритм решения задачи:

1. Ввести число N.

2. Присвоить x единицу.

3. Пока x^2 < n

1. Возвести x в квадрат b вывести значение x^2 на экран.

2. Увеличить значение x на единицу.

140
393
Посмотреть ответы 1

Ответы на вопрос:

егор23578584
егор23578584
4,5(27 оценок)

var

  a: array [1..15] of integer;   //массив из 15 целых чисел

  i: integer;

 

begin

  randomize;  

  write('исходный массив:   ');

  for i: = 1 to 15 do   {заполняем массив случайными целыми числами в промежутке [3; 33] и распечатываем его}

  begin

    a[i]: = random(31) + 3;

    write(a[i], '   ');

  end;

  writeln;

  write('преобразованный массив:   ');

  for i: = 1 to 15 do   {если элемент нечетный, то заменяем его на 1, иначе увеличивам его на 3 и распечатываем полученный массив}

  begin

    if a[i] mod 2 = 0 then a[i]: = 1

    else a[i]: = a[i] + 3;

    write(a[i], '   ');

  end;

  writeln;   {переход на новую строку, чтобы при следующем запуске программы информация выводилась с новой строки}

end.

если все правильно, отметь решение как лучшее)

Популярно: Информатика