Var a,b,c,d,sr:real;
begin
read(a,b,c,d);
sr:=(a+b+c+d)/4;
if (a<b) and (b<c) and (c<d) then
begin
a:=d;
b:=d;
c:=d;
end
else
if (a>b) and (b>c) and (c>d) then
begin
a:=sr;
b:=a;
c:=a;
d:=a;
end
else
begin
a*=a;
b*=b;
c*=c;
d*=d;
end;
write(a,' ',b,' ',c,' ',d);
<span>end.</span>
name_list = [
'Егор', 'Егор', 'Дмитрий', 'Дмитрий',
'Егор', 'Егор', 'Егор', 'Дмитрий',
'Егор', 'Егор', 'Егор', 'Дмитрий',
'Егор', 'Дмитрий', 'Егор', 'Дмитрий'
]
print(name_list.count('Дмитрий'))
1 раз. Цикл repeat работает до тех пор, пока он не станет истинным, но выполнится один раз в любом случае. С самого начала условие истинное.
Программа на Pascal:
var c: integer;
begin
writeln('Введите число C');
readln(c);
if c<>0
then writeln('Не равно 0')
else writeln('Равно 0');
end.
Program programName;
var x,y: real;
begin
writeln('Введите объем свободного пространства на жестком диске(Gb)');
readln(x);
y:=x/((350*35*55*2)/1073741824);
writeln('В свободное пространство размером ' x 'Gb вместится ' y:0:0 ' книг');
end.
Не проверял, но должно работать. Может возникнуть ошибка из-за русских символов, но тут уже сам.