// PascalABC.NET 3.0, сборка 1150 от 22.01.2016
var
n,k,nmax:integer;
begin
nmax:=-1;
repeat
Read(n);
if n<>0 then begin
if n mod 7 = 0 then begin
if n>nmax then begin k:=1; nmax:=n end
else
if n=nmax then Inc(k)
end
end
until n=0;
Writeln('Число ',nmax,' встретилось ',k,' раз(а)')
end.
<u><em>Тестовое решение:</em></u>
8 11 5 7 4 23 14 82 51 14 23 17 0
Число 14 встретилось 2 раз(а)
Ответ В)
div - целочисленное деление, т.е. нужно разделить и взять целую часть
mod - остаток от целочисленного деления
21 div 4 = 5
21 mod 4 = 1
Классификация продукта—это перечень тоисть например:что относится к мясным продуктам,к соленым (Там соль,перец...)
Про синтаксис сказать ничего не могу, вроде правильно
объем вычислен верно, а при вычислении площади ты вичислил только боковую площадь цилиндра, и забыл про круглые торцы, их тоже надо прибавить, т.е. S:=2*pi*r*h+2*pi*r*r
// PascalABC.Net
function dec2bin(n: integer): string;
begin
for var c:=31 downto 0 do
Result += IntToStr((N shr c) and 1);
end;
function count(b: string; c: char): integer;
begin
for var i:=1 to length(b) do
if b[i] = c then
Result += 1;
end;
begin
var N:=32;
var K:=3;
var sum:=0;
for var i:=1 to n do
if count(dec2bin(i), '1') = K then
begin
sum += 1;
end;
writeln(sum);
end.