прошу люди помогите до завтра мне нужен ответ на такое задание. Запишите в традиционной

Задача 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-1
program Z;VAR n,m: char;BEGINwrite(n -> ); readln(m)m:=1;while sqr(m)>=n do m:=m+1;writeln(m);END
Задача 4-2
program Д;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-3
program 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;

48

49

51

52

54

55

56 и до конца

Задания по теме «Поиск
информации в Интернете»

1 вариант. Восемь
вопросов

Ответы на приведенные ниже вопросы найдите в
Интернете или по другим источникам информации.


1. Какая русская фамилия является самой
распространенной?


2. Какое из понятий, связанных с одеждой, названо
не по
фамилии генерала: