Question

Определите значения переменных k и t после выполнения алгоритма. Запишите на языке Паскаль. Пожалуйста, помогите!

Answer 1

Var k,t:integer;
begin
k:=10;
t:=50;
while k>1 do
 begin
 t:=t-5;
 k:=k-2;
 end;
writeln('k = ',k,' t = ',t);
end.

Результат:
k = 0 t = 25

Answer 2

K=0
t=25
----------------------