1) Вот первая задачка:
uses crt;
var a, b, c : real;
begin
ClrScr;
Write(' a = '); ReadLn(a);
Write(' b = '); ReadLn(b);
c:=sqrt(a*a+ b*b);
WriteLn(' c = ', C:4:2);
ReadLn;
end.
2) А вот задачка 2
uses crt;
var s, s0 : real;
i: integer;
begin
ClrScr;
S0:=3;
i:=1;
While S0<20 do
begin
i:=i+1;
S:=S0*(1+0.05);
S0:=S+S0;
end;
WriteLn(' Day = ', i);
ReadLn;
end.
3) А вот и третья задачка подоспела....
uses Crt;
const n=15;
type Mas = array [1..n] of real;
var A: Mas;
i: integer;
Sum: real;
begin
ClrScr;
Sum:=0;
for i:=1 to n do
begin
Write(' A[',i, '] = ' ) ; ReadLn (A[i]);
Sum:=Sum+A[i];
end;
WriteLn (' Massiv: ');
for i:=1 to n do
Write (A[i]:6:2,' ');
WriteLn; WriteLn;
WriteLn ('Sum = ', Sum:6:2);
ReadLn;
end.
Информацию,не имеющую скрытных ошибок,называют доверенностью
Раз в числе в системе счисления с основанием N 4 цифры, значит должно выполняться следующее условие: (N-1)^4 < 86 < N^4
Возводя в 4 степень натуральные числа, получаем: 2^4=16, 3^4=81, 4^4=256
Получаем, что 81<86<256. Таким образом, искомое основание системы счисления = 4
86(10)=1112(4)
1112(4)=1*4^3+1*4^2+1*4+2=64+16+4+2=86(10)
A)
Read(a,b,c)
b)
if (x mod 2 = 0)or(y mod 2 = 0) then c:=(x+y)/2
else c:= x mod y;
c)
S:=0;
For k:= 1 to 15 do
S:=S+k;
d)
While x<=100 do
x:=x*2;
e)
c:=a;
a:=b;
b:=c;
