Перевести на язык qbasic var i: integer; s: longint; - вопрос №92129942040 от qwrt1337 08.02.2023 16:14

Question

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

qwrt1337 · 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.