Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
for i in range(100, 999):
if i % 2 == 0:
print(i)
var
v,p,n,h,d: real;
begin
read(p,n,h,d);
v: =3*p*n/10/10/10*h*d*d;
end.
s: string;
z,z1,i: integer;
readln(s);
z: =0;
z1: =0;
for i: =1 to length(s) do
if s[i]='м' then inc(z);
if s[i]='н' then inc(z1);
end;
if z> z1 then writeln('больше букв м');
if z< z1 then writeln('больше букв н');
if z=z1 then writeln('букв м и н равное количество');
Популярные вопросы