Var a,k:integer;
begin
a:=-1;
k:=-1;
while a<>0 do begin
read(a);
if a mod 7 = 0 then k+=1;
end;
writeln(k);
<span>end.</span>
245-245+245
vсообщение о видах персональных компьютерах и их использование
18446744073709551615 зерен
10713.782391753359 м сторона кубического амбара
#Ruby22
k=1
s=k
for i in 2..64
k *= 2
s += k
end
p s
p (s/15.0/10**6)**(1.0/3.0)
var i: integer; begin for i:= 1 to 30 do writeln(i);end.
Вот код вывода чисел от 1 до 30, либо я не понял вопроса, либо вам дорога не в программирование