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>
Program ugadai;
uses crt;
var
i,z,o:integer;
begin
randomize;
writeln('Введите число от 0 до 99:');
z:=random(100);
for i:= 1 to 10 do
begin
read(o);
if (o = z) then
begin
writeln('Вы угадали!!!');
break;
end else begin
if (i = 10) then begin
writeln('Жалко,но число не отгаданно.Загаданное число было ', z);
end else begin
writeln('Упс! У вас еще ',10 - i,' попопыток. Введите число:');
end;
end;
end;
<span>end.</span>
Информация — от латинского слова "information", что означает сведения, разъяснения, изложение. Информа́тика<span> — </span>наука<span> о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки </span>информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений. Программи́рование — процесс создания компьютерных программ.
Ответ:
280
Объяснение:
Если вы умеете решать дороги, то тут такой же принцип
Снизу путь, сверху кол-во вариантов
Сверху кол-во возможных вариантов продвижений, если у нас можно попасть несколькими способами, то просто суммируем значение вариантов
<span>ОБЛАДАЮТ СВОЙСТВОМ НАГЛЯДНОСТИ</span>