С клавиатуры вводится вещественное число. Если число, которое введено, меньше нуля, (т.е отрицательное), то на экран выводится текст "Отрицательное число", в противном случае (т.е при вводе числа больше или равного нулю) на экран выводится сообщение "Положительное число"
program al;
const n=5;
const k=5;
var b:array[1..n] of integer;
a:array[1..k] of integer;
i,s1,s2:integer;
begin
write('vvedite balli 1 sportsmena=');
for i := 1 to n do
readln(b[i]);
writeln ('vvedite balli vtorogo sportsmena=');
for i:= 1 to k do
readln(a[i]);
s1:=0;
s2:=0;
for i:= 1 to n do
s1:=s1+b[i];
for i:= 1 to k do
s2 := s2+a[i];
writeln ('s1=',s1,'s2=',s2);
readln;
end.<span> </span>
Программы детектора ищут файлы зараженные вирусом, ну и лечат их удаляя из файла тело программы вируса.
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.Знаходити тільки потрібне в інтернеті, а на рекламу та пропозиції не відволікатися.
Підберіть відповідні малюнки та зображення до плану)))