Привет, мне нужна помощь с домашней работой. Мое домашнее задание во вложениях.

1

Ответы и объяснения

2013-02-10T22:36:28+04:00

 Var N,s:integer;

begin

s:=0;

repeat

begin

read(N)

if(N mod 3 = 0) and (N mod 10 =4) then s:=s+N;

end;

until N<>0;

writleln(s); 

end.