Program n1;
var a,k: integer;
begin
readln(a);
k:=0;
while (a<>0) do
begin
if(a mod 5=0) or (a mod 7=0) then
k:=k+1;
readln(a);
end;
writeln(k);
end.
A6=341=3*6^2+4*6^1+1*6^0=133
См. приложения.
Объяснения ясны из таблиц.
//PascalABC.NET
//Версия 3.3, сборка 1611
begin
var (a,b,c):=ReadReal3();
write('S=',((a+b)/2)*sqrt(c*c-((a-b)*(a-b)/4)));
end.