Например:
(в А2) = 2*(А1+B1) Ответ будет = 6
(в B2) = 1/ (корень (B1 -1) Ответ =1 Если в B1 поменять 2 на 1 будет ошибка (в знаменателе 0)
const
n= 5;
var
i,j,max: integer;
a: array [1..5,1..5] of integer;
begin
for i:=1 to n do begin
for j:=1 to n do begin
a[i,j]:= random(10);
write(a[i,j],' ')
end;
writeln
end;
max:= a[n,1];
for i:=1 to n do
if a[i,n-i+1]>max then max:=a[i,n-i+1];
writeln(max)
<span>end.</span>
program raf105;
var m: integer;
begin
write('Введите номер месяца: ');
readln(m);
case m of
12,1,2: writeln('Это зима');
3..5: writeln('Это весна');
6..8: writeln('Это лето');
9..11: writeln('Это осень');
end;
end.
<h3><u>PascalABC 3.4.2</u></h3>
X := 47
z := 1
i := 0
1 итерация цикла:
z := (1+47/2)/2 = 12,25 (округляем, получаем 12,2)
i := 0 + 1 = 1
2 итерация цикла:
z := (12,2 + 47/2)/2 = 17,85 (округляем, получаем 17,8)
i := 1 + 1 = 2
3 итерация цикла:
z := (17,8 + 47/2)/2 = 20,65 (округляем, получаем 20,6)
i := 2 + 1 = 3
4 итерация цикла:
z := (20,6 + 47/2)/2 = 22,05 (округляем, получаем 22)
i := 3 + 1 = 4
i < 4 - условие не выполняется, выводим 22
Ответ: 22