var
a: integer;
begin
writeln('Введите число');
readln(a);
if (a mod 2 = 0) then
writeln('Число является четным') else
writeln('Число является нечетным');
end.
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) 1 - Г; 2 - А; 3 - В; 4 - Б; 5 - Д.
2) 384 бит.
3) 5, 1, 4, 3.
4) 1 - в; 2 - а, б.
5) 456 бит.
1)
var
a, b, i: longint;
begin
read(a, b);
for i := a to b do
writeln(i:10, ' бит = ', i / 8 / 1024:10:5, ' Кб');
end.
3)
var
a, b, s: real;
i:integer;
begin
read(a, b);
for i := 1 to 10 do
begin
s := s + b;
b := b * 1.03;
end;
writeln(s - 10 * a);
end.
7,4,2,5,3,6,1 -------------------
2 Задание не знаю