Решите оба варика кроме 9 задания, заранее спс! Про нумеруйте ответы

125

380

Посмотреть ответы 1

Ответы на вопрос:

egorikguru

Информатика

4,8(12 оценок)

//pascalabc.net 3.3,сборка 1611 от 06.01.2018 //внимание! если программа не работает, обновите версию! begin var x: =readinteger('x='); var (a,b,c): =(3,1,2); var y: =0.0; for var i: =1 to x do begin y: =a/b*c; a: =a+3; b: =b+1; c: =c+2; end; writeln('y=',y); end.