СРОЧНО! Составить программу, выводящую на экран кубы натуральных чисел от 10 до 20.
Uses crt; begin for var i:=10 to 20 do writeln('куб ',i,' = ',sqr(i)*i); readln(); end.
Var i:integer; begin for i:=1 to 20 do if(i>=10) then writeln('Куб числа ',i,' = ',i*i*i) end.
скажи пожалуйста, что значит "for" и "do" в твоей записи?
и "to"
for X to Y do → Цикл, он выполняется, пока X не равен Y. Но X возрастает на 1 за каждый проход. А после "do" идет тело цикла, если там больше 1 действия, то его нужно заключить в begin-end: for X to Y do begin ... end;
спасибо
зачем условие?
что?
не оптимально