Якого значення набуде змінна після виконання команд присвоєння?
b=2
b=b+1
b=b*b
print (b)

Question

Информатика: Якого значення набуде змінна після виконання команд присвоєння? b=2 b=b+1 b=b*b print (b)​

Max325t · Accepted Answer

{Free Pascal Compiler version 3.0.4+dfsg-23 [2019/11/25] for x86_64}

{Target OS: Linux for x86-64}

program test;

Uses Math;

const N = 15;

var

A : array[1..N] of integer;

i, mx, k : integer;

begin

Randomize;

{Генерация и печать массива}

for i := 1 to N do begin

A[i] := Random(50);

write(A[i], ' ');

if A[i] mod 2 = 1 then mx := A[i]

end;

writeln;

for i := 1 to N do

if A[i] mod 2 = 1 then

if A[i] < mx then begin

mx := A[i];

k := i

end;

writeln('Число - ', mx, ', позиция - ', k);

end.

Результат выполнения программы:

Якого значення набуде змінна після виконання команд присвоєння?b=2b=b+1b=b*bprint (b)​