Question

Решите, пожалуйста, в паскале 1,3 и 5 задачи!!!

Answer 1

//Pascal ABC.NET v3.1 сборка 1219

//1

Var
 a,b,c:real;
begin
 readln(a,b);
 c:=sqrt(a*a+b*b);
 writeln('P=',a+b+c);
end.
//2

Var
 s:string;
 c:char;
 k,i:integer;
begin
 readln(s);
 readln(c);
 for i:=1 to length(s) do
 if s[i]=c then inc(k);
 writeln(k);
end.

//3

Const
 n=10;

Var
 ar:array[1..10] of integer;
 i,h:integer;
begin
 randomize;
 readln(h);
 writeln('First array:');
 for i:=1 to n do
  begin
   ar[i]:=random(10);
   write(ar[i]:4);
  end;
 for i:=n-h+1 to n do
  ar[i]:=1;
 writeln;
 writeln('Final array:');
 for i:=1 to n do
  write(ar[i]:4);
end.

Answer 2

Простите, не заметил. Сейчас поправлю.

Answer 3

Sqr принимает параметры типа Integer, не real.

Answer 4

Ещё раз спасибо))

Answer 5

Так вроде же итак реал написан, что не так?

Answer 6

В этом то и дело. Вы пытаетесь использовать как аргумент переменную типа real, а данная функция работает только с целочислительными типами.