Question

Ajutor! Vreau aceste probleme rezolvate cu algoritm cu tot tot pana la sfarsit. Raman recunoscător!

1. Se dau doua numere intregi. Sa se determine suma si diferenta lor.

2. Se dau doua numere naturale. Sa se determine media aritmetica si media geometrica a acestor numere.

3. Se da raza unui cerc. Sa se afle lungimea cercului si aria discului marginit de acest cerc.

Answer 1

Răspuns:

1.

var a,b,c,d: Integer;

begin

readln(a,b);

s:= a + b; Writeln(' Suma: ' ,s);

d:= a - b; Writeln(' Diferenta: ' ,d);

end.

2.

var a,b,ma,mg: Real;

begin

readln(a,b);

ma:= (a + b) / 2; writeln(' Media aritmetica: ',ma);

mg:= sqrt(a * b); Writeln('Media geometrica: ',mg);

end.

3.

var a,r,L: Real;

const pi = 3.14;

begin

readln(r);

l:= 2 * pi * r;

writeln(' Lungimea este: ' ,l:1:2);

end.

Explicație:

da mi si mie 5 stele nu fi zgarcit