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

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.

Comments

Спасибо!!! Но в первой задаче надо найти периметр... Скажите, что не так:

---

var a,b,c,p: real;
begin
writeln ('Введите катет a: ');
read (b);
writeln ('Введите катет b: ');
read(b);
c:= sqrt(sqr(a)+sqr(b));
p:= a+b+c;
writeln ('Периметр треугольника равен: ', p);
end.

---

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

---

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

---

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

---

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

---

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