Перевод программы с 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.

⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Перевод программы с 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.» от пользователя Машка Волохова в разделе Экономика. Задавайте вопросы и делитесь своими знаниями.