Предмет: Информатика,
автор: sferents599
помогите с информатикой(через паскаль)
Приложения:
Ответы
Автор ответа:
1
Ответ:
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.
Интересные вопросы
Предмет: Русский язык,
автор: linka25
Предмет: Русский язык,
автор: Dasha31
Предмет: Русский язык,
автор: bazhenov123456789
Предмет: Химия,
автор: Alenalgn
Предмет: Математика,
автор: 1234567891310