Регистрация
RaiderUp
24.02.2022 05:53
Информатика
Есть ответ 👍

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

156
233
Посмотреть ответы 2

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

POMIPO
POMIPO
4,4(63 оценок)

ответ:

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.

dimallow
dimallow
4,8(56 оценок)
Перепишем выражение в более удобном виде и применим законы логики:

Популярно: Информатика