Переписать программу в питон Var a, n:
integer;
begin
n:=0;
repeat
readln(a);
if (a mod 3 = 0) and (a mod 6 <> 0) then
inc(n, a);
until a = 0;
writeln(n);
end.

163

275

Посмотреть ответы 1

Ответы на вопрос:

uapavlovaoy4dah

Информатика

4,4(50 оценок)

Program factorial; var n,s: integer; readln(n); if (n=0) then writeln('0! =1') else if (n< 0) then writeln('определяется только для положительных чисел') else begin s: =1; for i: =1 to n do s: =s*i; writeln(n,'! ='s: 0: 0); end;