Ответ:
Решение
Объяснение:
НАЧАЛО
Создаются переменные А со значением 3 и С со значением 5
Затем А и С уменьшаются на 1
Проверка: Если А больше 0
Если да, то А и С будут уменьшаться, до тех пор пока А не достигнет 0
Если А меньше или есть 0, то программа продолжит своё выполнение
С уменьшится на 1
Проверка: Если С больше 0
Если да, то С будет уменьшаться, до тех пор пока С не достигнет 0
Если С меньше или есть 0, то программа продолжит своё выполнение
КОНЕЦ
В итоге А и С будут равны 0
Var x:integer;
begin
for x:=5 to 14 do begin
x:=x*(x+1)
end;
end.
PASCAL не уверен что работает но смысл такой
<span>uses crt;
var a: array [1..15] of integer;
i: integer;
begin
writeln('Дан массив');
for i:=1 to 15 do
begin
a[i]:=random(41)-20;
write(a[i]:5);
end;
writeln;
writeln('Преобразованный массив');
for i:=1 to 15 do
if a[i] mod 2=0 then write(a[i]/2:5:1)
else write(a[i]*3:5);
end<span>.</span></span>
Решение смотри во вложении
A:=16
b:=12-16/4 = 8
a:=16+8*3 = 40
Ответ: a=8; b=40