3, и 4 неправильно. После переименования, или название не стоит точка
а в программном блоке может оканчиваться не только var
subroutine SumSer(eps, res)
real eps
real(8) res
real(8) :: sgn = -1, z = 1, a
integer :: i = 1
res = 0
do
z = z * (2 * i) * ( 2 * i - 1)
a = sgn / z
if (abs(a) <= eps) then
exit
endif
res = res + a
sgn = -sgn
i = i + 1
enddo
end subroutine SumSer
program MainProg
real :: eps = 0.00001
real(8) y
call SumSer(eps, y)
write(*,'(1X,F9.6)') y
end program MainProg
Ответ:
1)точно такое количество букв?
2)планшет
3)процессор
4)ОЗУ
5)шина
Ответ:
var a:array [1..15] of integer ;
i,col:integer;
begin
for i:=1 to 15 do
begin
readln(a[i]);
if a[i]>200 then col:=col+1;
end;
writeln('Колічесто: ',col);
end.
Объяснение:
170 = 10101010
242 = 11110010
158 = 10011110
70 = 01000110
-50 = 11001110
-90 = 10100110<span>
</span>