var a:array[1..100] of integer;
s,i: integer;
begin
for i:=1 to 10 do begin
write('a[',i,'] = ');
readln(a[i]);
end;
for i:=1 to 10 do begin
if a[i] mod 3 = 0 then begin
s:=s+a[i];
end; end;
writeln('summa chisel kratnx 3 = ', s);
readln;
end.
Program Num1;
var a, b, c , s, p, rb, ro :real;
begin
writeln ('Введите стороны треугольника через пробел');
read (a,b,c);
p:= (a+b+c)/2;
s:= sqrt(p*(p-a)*(p-b)*(p-c));
rb:= s/p;
ro:= (a*b*c)/(4*s);
writeln ('RB = ',rb:0:2,' RO = ',ro:0:2);
end.
2)В конце программы будет написано:
данные
1418324196
результат:a=14,k=18
В десятичной это: 172 - 4 = 168
В двоичной 168 это 10101000
Количество символов в статье = 64*40*56
Объем статьи = 64*40*56*16 бит = 64*40*56*16/8 байт = 64*40*56*2 байт =
64*40*56*2/1024 Кбайт = 5*56 Кбайт = 280 Кбайт