Перевод программы с Pascal ** QBasic Решение: var a, s: integer; begin s:= 0; readln(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.

Answer 1

DIM a AS INTEGER, s AS INTEGER
s = 0
INPUT a
DO WHILE a <> 0
   IF (a MOD 6 = 0) AND (a MOD 10 = 4) THEN
      s = s + a
   END IF
   INPUT a
LOOP
PRINT s

Comments

Loop это

---

Что - это? Это в бейсике оператор завершения цикла DO