с информатикой(через паскаль)

andrei79smirnov andrei79smirnov    2   13.02.2020 21:39    1

Ответы
kvkv2 kvkv2  11.10.2020 04:25

var

 x , sum : integer;

begin

 read(x);

 while( x <> 0) do begin

   if( x mod 3 = 0) and (x mod 10 = 9) then

     sum := sum + x;

   read(x);

 end;

 write(sum);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика