Перевод программы с pascal на qbasic решение: var a, s: integer; begin s: = 0; readln(a); while a 0 do begin if (a mod 6 = 0) and (a

Question

Информатика: Перевод программы с pascal на qbasic решение: var a, s: integer; begin s: = 0; readln(a); while a 0 do begin if (a mod 6 = 0) and (a mod 10 = 4) then s : = s + a; readln(a); end; writeln(s) end.

nebeca · Answer

DIM a AS INTEGER, s AS INTEGERs = 0INPUT aDO WHILE a 0   IF (a MOD 6 = 0) AND (a MOD 10 = 4) THEN      s = s + a   END IF   INPUT aLOOPPRINT s...

Перевод программы с pascal на qbasic решение: var a, s: integer; begin s: = 0; readln(a); while a< > 0 do begin if (a mod 6 = 0) and (a mod 10 = 4) then s : = s + a; readln(a); end; writeln(s) end.

Популярные вопросы