................
a:=38;
b:=a+9;
a:=b-a;
writeln(a);
writeln(b);
.................
Ответ: a = 9, b = 47.
Объяснение: дано начальное значение 38. Переменной B присвоить значение a+9, то есть 38+9 = 47. Из этого следует, что b = 47. Переменной a присвоить значение b-a, то есть 47-38 = 9. Из этого следует, что a = 9.
<span>"проги" пишет "школота". Вот пусть она и помогает. А нормальные люди пишут программы</span>
Var
a:array[1..10] of integer;
i,c:integer;
Begin
for i:= 1 to 10 do Begin
write('Введите ',i,' - ый элемент массива ');
readln(a[i]);
End;
Write('Индексы элементов, больших 5 - (');
for i:= 1 to 10 do
if a[i]>5 then Begin
write(i,' '); c:=1;
end;
if c=0 then write('Таких нет)') else write(')');
end.
<span>
</span>
<span>var a, k: integer;
begin
t:=0;
readln(a);
while a<>0 do begin
if (a mod 2 = 0) and (a mod 6 = 0) then
k := k + 1;
readln(a);</span>
<span> </span><span>end;
writeln(k)
end.</span>
7 500 + 8 700=16 200
16.2 тысяси