Предмет: Информатика, автор: rtropin00

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

Ответы

Автор ответа: Аноним
0
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

Автор ответа: rtropin00
0
Loop это
Автор ответа: Аноним
0
Что - это? Это в бейсике оператор завершения цикла DO
Похожие вопросы
Предмет: Геометрия, автор: nuradilkhismet