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

Nalasinskaya Nalasinskaya    1   13.02.2020 21:38    0

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

var

 x , counter , sum :integer;

begin

 read(x);

 counter := 0;

 while (x <> 0) do begin

   sum := sum + x;

   if( x mod 5 = 0 ) and ( x mod 2 = 0 ) then

     counter := counter + 1;

   read(x);

 end;

 write(sum,' ', counter);

end.

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