Сделайте пожалуйста три задачи по Паскалю. Информатика 9 класс.

1

Ответы и объяснения

2014-01-29T14:01:44+04:00
1)
program test;
const n = 3;
var a,i:int64;
sum:real;
z:array [1..n] of real;
begin
readln(a);
for i:=1 to n do
begin
z[i]:=a mod 10;
sum:=sum+z[i];
end;
if (sum*sum*sum)=(a*a) then writeln('Равны')
else writeln('Неравны');
end.
2)
program start;
var k,x,y:real;
begin
readln(x);
readln(y);
k:=(cos(x)+y)/(sqrt(abs(x+y))+5*abs(x));
writeln(k:2:5);
end.
3)
program start;
const n=3;
var i:integer;
a,b:array[1..n] of real;
begin
for i:=1 to n do
begin
readln(a[i]);
b[i]:=(a[i]+2)/(1+abs(a[i]));
end;
for i:=1 to n do writeln('b[',i,'] =',b[i]);
end.