Решите, пожалуйста, в паскале 1,3 и 5 задачи!!!
Решите, пожалуйста, в паскале 1,3 и 5 задачи!!!
Гость
Ответ(ы) на вопрос:
Гость//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.
Не нашли ответ?
Похожие вопросы