Перевести на язык qbasic var i: integer; s: longint; - вопрос №921209220 от нася12342 29.09.2020 15:17

Question

Информатика: Перевести на язык qbasic var i: integer; s: longint; begin for i: =20 to 40 do s: =s+i*i*i; writeln( сумма всех кубов от 20 до 40 = ,s); end.

нася12342 · Answer

DIM i AS INTEGER, s AS LONGFOR i = 20 TO 40    s = s + i ^ 3NEXTPRINT Сумма всех кубов от 20 до 40 = ;s...

Перевести на язык qbasic var i: integer; s: longint; begin for i: =20 to 40 do s: =s+i*i*i; writeln('сумма всех кубов от 20 до 40 = ',s); end.

Перевести на язык qbasic var i: integer; s: longint; begin for i: =20 to 40 do s: =s+iii; writeln('сумма всех кубов от 20 до 40 = ',s); end.