Question

Люди добрые и хорошие помогите пожалуйста с информатикой т-т

Answer 1

var t,k: integer;

begin

t:=50;

k:=10;

While k<1 do begin

t:=t-5;

k:=k-2;

end;

Write(t,' ', k); //50 10

end.