Program gt; var x1,x2,x3,y:real; begin readln(x1,x2,x3); x1:=x1-x3; while x1<x2 do begin x1:=x1+x3; if(x1<=x2)then begin y:=x1*x1*x1+3; writeln(y); end; end; end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку