Перевести код из Паскаля в Делфи

@Евгения01 · Регистрация: 29.10.2015

Author24 — интернет-сервис помощи студентам

Помогите, пожалуйста

1.На обработку поступает последовательность из четырёх целых чисел. Нужно написать программу, которая выводит на экран количество неотрицательных чисел последовательности и их произведение. Если неотрицательных чисел нет, требуется вывести на экран «NO». Известно, что вводимые числа по абсолютной величине не превышают 10.

Pascal

var p,i,x,count: integer;
begin
    count := 0;
    p := 1;
    for i := 1 to 4 do
    begin
        read (x);
        if x >= 0 then begin
            p := p*x;
            count := count+1;
        end
    end;
    if count > 0 then
    begin
       writeln(count);
        writeln(p);
    end
    else
        writeln('NO');
end.

2.Дано целое неотрицательное число N. Необходимо вывести два неотрицательных целых числа, которые при возведении к квадрат дадут результаты, наиболее близкие к N. Например, для N = 2016 нужно вывести числа 44 и 45 (442 = 1936, 452 = 2025), а для N = 9 нужно вывести числа 2 и 3.

Pascal

var n, k: integer;
begin
  read(n);
  k := 1;
while k*k < n do
    k := k + 1;
  writeln(k-1," ",k)
end.

3. Дано натуральное число A. Требуется вывести такое максимально возможное натуральное число K, при котором сумма 1 + (1 + 2) + (1 + 2 + 3) + … + (1 + 2 + … + K) не превышает A.

Pascal

var  a, s, p, k: integer;
begin
    readln(a);
    s := 0; 
    p := 0; 
    k := 1; 
    while s <= a do begin ;
      p := k+p;
      s := p+s;
      k := k+1;
    end;
    writeln(k-2);
end.

Добавлено через 56 минут
Помогите пожалуйста, срочно

@Puporev · 29.06.2018, 15:43

1.

Pascal

procedure TForm1.Button1Click(Sender: TObject);
var i,j,a,k,p:integer;
    s:string;
begin
p:=1;
k:=0;
for i:=1 to 4 do
 begin
  repeat
   s:=inputbox('','Введите целое число от -10 до 10','');
   val(s,a,j);
   if(j<>0)or(abs(a)>10) then showmessage('Введите целое число от -10 до 10');
  until(j=0)and(abs(a)<=10);
  Label1.Caption:='';
  Label1.Caption:=Label1.Caption+inttostr(a)+'  ';
  if a>0 then
   begin
    k:=k+1;
    p:=p*a;
   end;
 end;
if k=0 then Label2.Caption:='Положительных чисел нет'
else Label2.Caption:='Количество положительных='+inttostr(k)+
                     ' их произведение='+inttostr(p);
 
end;

	29.06.2018, 15:43

Перевести код из Паскаля в Делфи

Решение