составьте программу на паскале, пожалуйста

Приложения:

Ответы

Ответ дал: SanGreen74
0
var b,c:real; 
begin 
b:=1; 
c:=2; 
repeat 
b:=b+1; 
c:=c*b; 
until b=4; 
writeln('Да'); 
end. 
Похожие вопросы