Var num1,num2:real;
begin
write('Введите первое число: '); readln(num1);
write('Ведомое второе число: '); readln(num2);
writeln('Наибольшее число: ');
if (num1 > num2) then writeln(num1)
else writeln(num2)
end.
Const n=10;
var a:array[1..n] of integer;
k,i:integer;
begin
Randomize;
for i:=1 to n do begin
a[i]:=random(9)+2;
write(a[i],' ');
end;
writeln;
k:=0;
for i:=1 to n do
if a[i] mod 2 = 0 then k:=k+1;
writeln('Четных: ',k,' нечётных: ',n-k);
end.
Пример:
<span>2 2 4 7 9 10 9 4 5 4
Четных: 6 нечётных: 4</span>
Как-то так, если не так то извини
var y,x,z: real;
begin
readln(x,y);
z:=ln(abs((y-sqrt(abs(x)))*(x-y/(x+x*x/4))));
write(z);
end.
Обозначим:
Д - один из близнецов.
М - мама.
П - папа.
Левый берег - начало.
Правый берег - конец.
1. Отправим двух близнецов.
МП...ДД
2. Оставим одного на правом берегу, другого отправим на левый. Плывет папа.
ДМ...ДП
3. Отправим близнеца с правого берега на левый, заберем брата на правый берег.
М...ДДП
4. Отправляем близнеца налево, мама плывет.
Д...ДМП
5. Другой близнец плывет за братом и вместе оказываются на правом берегу.
...ДДМП
Во втором пункте неважно кого из взрослых отправить первым.