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
Program yes_no;
var
n: integer;
begin
write('Введите число: ');
readln(n);
if (n mod 100 div 10) > 1 then
writeln('да')
else
writeln('нет');
end.
Правильными орераторами присваивания будут
1) х=:а
2) х:=122
4) х:=а*с
(html)
<div class="test"></div>
(css)
.test {
background: red;
-webkit-transition: all 0.5s ease;; -moz-transition: all 0.5s ease;; -o-transition: all 0.5s ease;; transition: all 0.5s ease;
}
.test:hover {
-webkit-transform: scale(1.2); -ms-transform: scale(1.2); transform: scale(1.0);
}
с помощью "transition"
// PascalABC.NET 3.1, сборка 1204 от 24.03.2016
begin
var k:=0;
for var n:=184 to 254 do begin
var m:=n;
while m mod 2=0 do m:=m div 2;
while m mod 3=0 do m:=m div 3;
if m=1 then Inc(k)
end;
Writeln('Количество чисел равно ',k)
end.
<u><em>Результат выполнения программы</em></u>
Количество чисел равно 3