Question

ПОЖАЛУЙСТА,ЕДИНСТВЕННАЯ НАДЕЖДА НА ВАС!!! Задача 3-1 После выполнения фрагмента алгоритма переменная A приняла значение 8. Определить минимальное целое N, при котором это возможно.A:=0;i:=1;while i<N do begini:=i+3;if i mod 4=0 then A:=A+1;end;A:=2*A*A-10;Задача 3-2 После выполнения фрагмента алгоритма переменная X приняла значение 25. Определить минимальное целое N, при котором это возможно.X:=0;i:=l;while i<=N do begini:=i+l;if (i mod 2=0) and (i mod 4 <> 0)then X:=X+1;end;X:=X*X-2*X+1; Поиск ошибок в программе. Найти и исправить ошибки в программе.Задача 4-1program Z;VAR n,m: char;BEGINwrite(n -> ); readln(m)m:=1;while sqr(m)>=n do m:=m+1;writeln(m);ENDЗадача 4-2program Д;BEGINVAR i,n,k,a: integer;readln(n); k:=0;for i:=1 to n doreadln(a);if a > 0 then k:=k+1;end;wreteln(k = ',k:0:2);END.Задача 4-3program W;VAR max;a: integer; n: longint;BEGINwrite('n -> '); readln(n);max:=10;while n <> 0 begina:=n mod 10;if a > max;then max:=a;n:=n mod 10;end;

Answer 1

Наименьшее число N=26
Код программы можно посмотреть Alt+F11

Answer 2

Давайте рассмотрим каждую из задач и попробуем исправить ошибки.

Задача 3-1:

cssCopy code
A := 0;
i := 1;
while i < N do begin
  i := i + 3;
  if i mod 4 = 0 then
    A := A + 1;
end;
A := 2 * A * A - 10;

Программа вычисляет значение переменной A в зависимости от значения N. Ошибка в условии i < N в цикле. Чтобы переменная A приняла значение 8, необходимо, чтобы условие A = 8 выполнилось. Поэтому минимальное целое N будет:

cssCopy code
A = 2 * A * A - 10
8 = 2 * 8 * 8 - 10
8 = 128 - 10
8 = 118

Таким образом, минимальное значение N, при котором A = 8, равно 118.

Задача 3-2:

cssCopy code
X := 0;
i := 1;
while i <= N do begin
  i := i + 1;
  if (i mod 2 = 0) and (i mod 4 <> 0) then
    X := X + 1;
end;
X := X * X - 2 * X + 1;

Программа вычисляет значение переменной X в зависимости от значения N. Ошибка в условии i <= N в цикле. Чтобы переменная X приняла значение 25, необходимо, чтобы условие X = 25 выполнилось. Поэтому минимальное целое N будет:

makefileCopy code
X = X * X - 2 * X + 1
25 = 25 * 25 - 2 * 25 + 1
25 = 625 - 50 + 1
25 = 576

Таким образом, минимальное значение N, при котором X = 25, равно 576.

Задача 4-1:

pascalCopy code
program Z;
VAR n, m: integer;  // Заменил char на integer
BEGIN
  write('n -> ');
  readln(n);  // Добавил пропущенную точку с запятой
  m := 1;
  while sqr(m) >= n do  // Изменил условие на >=
    m := m + 1;
  writeln(m);
END.

Задача 4-2:

pascalCopy code
program D;
BEGIN
  VAR i, n, k, a: integer;  // Добавил объявление VAR
  readln(n);
  k := 0;
  for i := 1 to n do
  begin
    readln(a);
    if a > 0 then
      k := k + 1;
  end;
  writeln('k = ', k);  // Добавил кавычки и точку с запятой
END.

Задача 4-3:

pascalCopy code
program W;
VAR max, a: integer;  // Добавил объявление VAR
n: longint;
BEGIN
  write('n -> ');
  readln(n);
  max := 10;
  while n <> 0 do
  begin
    a := n mod 10;
    if a > max then  // Изменил ; на then
      max := a;
    n := n div 10;  // Изменил mod на div
  end;
END.

Внесенные изменения должны исправить ошибки в указанных программах.