Решить! 4 числа: a, b, c и d. выведите все числа на отрезке от a до b, остаток c при делении на d входные данные 1 4 1 2 выходные данные 1 3 входные данный 1 5 0 4 выходные данные 4 все числа на отрезке от a до b, являющиеся полными квадратами. входные данные 1 5 выходные данные 1 4 выходные данные 2 9 выходные данные 4 9 самый маленький натуральный делитель числа x, отличный от 1 (2 < = x < = 30000 входные данные 4 выходные данные 2 входные данные 5 выходные данные 5

Var a, b, c, d, i : integer; begin       read(a);       read(b);       read(c);       read(d);             for i : = a to b do             if (i mod c = d) then                   writeln(i);       writeln();       for i : = a to b do             if frac(sqrt(i)) = 0 then                   writeln(i);       writeln();       for i : = 2 to a-1 do             if a mod i = 0 then begin                   writeln(i);                   exit;             end; end.

Обратите внимание на то, что использование переменных c,k,j совершенно не нужно. Также в переменных

max,min лучше запоминать индексы, чтобы затем выполнить реверс.

const n = 10;

type mass = array[1..n] of integer;

var

a: mass;

i, max,min: integer;

begin

randomize;

for i := 1 to n do

A[i] := random(20)-10;

for i := 1 to n do

write(a[i]:3);

writeln();

// В переменных max и min будем запоминать

// ИНДЕКСЫ макс. и мин. элементов

max := 1;

min := 1;

for i := 1 to n do begin

if a[i] > a[max] then max := i;

if a[i] < a[min] then min := i;

end;

Writeln('A[',max,'] = ',a[max]);

Writeln('A[',min,'] = ',a[min]);

// Меняем местами max и min

i := a[max];

a[max]:=a[min];

a[min]:=i;

// Выводим результат на экран

for i := 1 to n do write(a[i]:3);

end.

using System;

namespace ConsoleApp1

{

   class Program

   {

       static void Main(string[] args)

       {

           int n,i,j, imin = 0;

           double sum = 0;

           Console.Write("Введите n: ");

           n = Convert.ToInt32(Console.ReadLine());

           double[,] A = new double[n, n];

           Console.WriteLine("Введите значения матрицы: ");

           for (i = 0; i < n; i++)

               for (j = 0; j < n; j++)

               {

                   A[i,j] = Convert.ToDouble(Console.ReadLine());

                   if (A[i, j] < A[imin / 10, imin % 10]) imin = i * 10 + j;

               }

           i = imin / 10;

           for (j = 0; j < n; j++) sum += A[i, j];

           Console.WriteLine("Сумма элементов строки с наименьшим значением: " + sum);

       }

   }

}