Перевести на язык qbasic var i: integer; s: longint; - вопрос №92129942040 от smile1506 10.04.2023 01:47

Question

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

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