нужна помощь с решением следующих задач! =>

[f1n!Sh]

Здравствуйте!Очень прошу о помощи вот в этих задачах =>

1.Если сумма трёх попарно различных действительных чисел х,у,z меньше единицы , то наименьшее из этих трёх заменитиь полусуммой двух других; в противном случае заменить меньшее из ъ и у двух оставшихся чисел.

2.Даны натуральные числа n, a1,…,an, где n≤3000. Найти члены ak последовательности a1,…,an, являющиеся квадратами четных чисел, и определить их количество.

п.с
Это на паскале нужно сделать...пожалуста помогите чем сможите

[Irat]

Напиши пояснение к 1-й задаче, особенно к последней части!

[Irat]

Если уменя еще остались какие-то знания по математике, то наверно так:

Program zadach2;
var k,i:integer;
n:real;
begin
k:=0;
i:=2;
While n<=3000 do
begin
n:=SQR(i);
if n<3000 then
begin
k:=k+1;
Writeln(k,' Znachenie =',n:6:2);
end;
i:=i+2;
end;
Writeln('Kolichestvo =',k);
end.

[f1n!Sh]

Сообщение от Irat

Напиши пояснение к 1-й задаче, особенно к последней части!

В том то и дело что я и сам не понял поэтому и попросил о помощи..!

[Irat]

в противном случае заменить меньшее из ъ и у двух оставшихся чисел.

Здесь что написано, так и было в задании?

[f1n!Sh]

Сообщение от Irat

в противном случае заменить меньшее из ъ и у двух оставшихся чисел.

Здесь что написано, так и было в задании?

Ой)) вот так вот ! - !... из х и у полусуммой двух оставшихся чисел...! это моя ошибка... извиняйте

[Serge_Bliznykov]

Irat
вы задание сделали не совсем верно.
Нужно объявить массив A : array[1..n] of integer;
организовать его заполнение (либо с клавиатуры, либо через random()
и потом в цикле проверять целым ли получается корень квадратный
if INT(SQRT(A[i]))=SQRT(A[i]) then begin
Inc(k);
Writeln('Число ',A[i]:1,' является квадратом числа ',trunc(sqrt(A[i]])):1)
end;
Writeln('Всего обнаружено ',k:1,' квадратов!');

[Stilet]

Вторая задача:

uses crt;
var a:array[1..3000] of integer; e,i,k:integer;r:real;
begin

Массив сам наполнишь

for i:=1 to high(a) do begin
 r:=sqrt(a[i]);
 k:=trunc(sqrt(a[i]));{}
 if ((r-k)=0)and((trunc(sqrt(a[i])) mod 2 )= 0) then begin
  write(a[i]:5);inc(e);
 end;
end;
 writeln;writeln(e);
end.

[f1n!Sh]

Пожалуста помогите с 1ой задачей!! я сам несправлюсь..никак просто!

[Abbatik]

#1

var x,y,z:real;
begin
readln(x,y,z);
if x+y+z<1 then begin
if (x<y) and (x<z) then x:=(y+z)/2 else
if (y<z) then y:=(x+z)/2 else z:=(x+y)/2;
end else
if (x<y) then x:=(y+z)/2 else y:=(x+z)/2;

writeln(x:4:2,y:4:2,z:4:2);
end.