Var
s:integer;
x:real;
begin
repeat
begin
write('Сколько всего журавликов сделали: ');
readln(s);
if s mod 6<>0 then writeln('Они не могли сделать столько, противоречит условию')
end
until s mod 6=0;
x:=s/6;
writeln('Петя и Сережа сделали каждый по ',x);
writeln('Катя сделала ',4*x)
<span>end.</span>
Андреев из Екатеринбурга
<span>Борисов из Перми </span>
<span>Васильев из Омска </span>
<span>Григорьев из Челябинск </span>
<span>Данилов из Новосибирска</span>
Код на Python
growth = []
growths = ' '
applicants = []
while 1 == 1:
growths = input()
if growths == '!':
break
else:
growth.append(int(growths))
for i in range(len(growth)):
if growth[i] > 150 and growth[i] < 190:
applicants.append(growth[i])
print(len(applicants))
print(min(applicants), max(applicants))
var a,i,n,k : integer;
begin k := 0;
write ('n = ');
readln (n);
for i := 1 to n do
begin read (a);
if a =0 then
k := k +1; end;
writeln (k,' - кол-во нулей');
<span> end.</span>