Паскаль Помогите, пожалуйста, с номером 4, 11 и 16
Answers & Comments
vadimsol
Ну если все в паскале то там должна быть примерно такая прога номер 4 begin repeat a>0 until a=abs(a) end попробуй так 11 begin if a<0 then write ('a'); else end А вот с последнимм попробуй аналоичное действе сделать
Answers & Comments
номер 4
begin
repeat
a>0
until
a=abs(a)
end
попробуй так
11
begin
if a<0 then
write ('a');
else
end
А вот с последнимм попробуй аналоичное действе сделать