Помогите решить задания, пожалуйста №1 x-? a=3,b=18 Var x,a,b:integer; begin Readln(x)...

Question

Помогите решить задания, пожалуйста №1 x-? a=3,b=18 Var x,a,b:integer; begin Readln(x) a:=0, b=1 while x>0 do begin a:=a+1 b:=b*(x mod 100) end; Write(a); Write(b) End. №2 По фрагменту написать программу, произвести вычисления u:=26 i:=1 to 5 u=u-1 Это написано в блок схеме, если там не видно

---

Answer 1

№2
var u, i: integer;
begin
u := 26;
for i := 1 to 5 do:
u := u - 1;
writeln(u);
end.