Перевод программы с 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.
Гость
Ответ(ы) на вопрос:
Гость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
Не нашли ответ?
Похожие вопросы