Определите, что будет напечатано в результате работы следующей программы. текст программы на трёх языках программирования алг нач цел s, k s : = 1 нц для k от 3 до 0 шаг −1 s : = s*3 кц вывод s кон с объяснением

Объяснение.
Команда s := 1 присваивает переменной s значение 1
Далее органищован цикл по переменной к, значения которой изменяются от 3 до 0 с шагом -1 (то есть 3, 2, 1 ,0). При каждом выполнении цикла значение переменной s утраивается:
k = 3         s = 3
k = 2         s = 9
k = 1         s = 27
k = 0         s = 81
Цикл закончен. Выводится значение переменной s.
ответ: Будет выведено значение "81".

"...напечатает сначала 2, потом - 6" -- это значит a=2 и b=6?

про пятеричные записи ничего не понял...  :) И ИМХО к чему такие сложности? И для чего нам комп и программа? Я подправил исходную прогу чтобы она выдавала все числа подходящие по условию

var x,a,b: longint;

begin

   for var i := 999 DownTo 100 do begin

       a := 0;

       b := 1;

       x := i;

       while x>0 do begin

           if x mod 2 > 0 then a := a+1 else b := b+(x mod 5);

           x := x div 5;

       end;

       if (a = 2) and (b = 6) then writeln('x = ', i, ' a = ', a, ' b = ',b);

   end;

end.

прога проводит расчет для всх трехзначных чисел от 999 до 100

итого мы видим что максимальное подходящее число это 960

при необходимости прогу можно переделать чтобы она находила только максимальное число.

Program Z2;

Var q,s,n,x,y,m,w,a,b,c: real;

Begin

write ('введите число a=');

readln (a);

write ('введите число b=');

readln (b);

write('введите число c=');

readln (c);

x := c+sqrt(a)*sin(sqrt(c));

y := sin(3*b)*cos(3*b);

s := sqrt(a-x/y);

m := ln(1+sin(a));

w := sqrt((b+c)/(a*a-1))+(a/(c*b));//error x2

n := sqrt(b+(m/w));

q := sqrt((3+s)/(8-n));//error x4

writeln(q);

End.

Объяснение:

комментарии - кол-во ошибок(делал для себя) , крч говоря 2 лишних корня и пара скоьок в действии q, и ... вроде бы лишние скобки в w , но тут уже можно будет зрительно сравнивать