Объяснение:
Компьютерный ви́рус — вид вредоносного программного обеспечения внедряться в код других программ, системные области памяти, загрузочные секторы, и распространять свои копии по разнообразным каналам связи.
Основная цель вируса — его распространение. Кроме того, часто его сопутствующей функцией является нарушение работы программно-аппаратных комплексов — удаление файлов и даже удаление операционной системы.
В обиходе «вирусами» называют всё вредоносное ПО, хотя на самом деле это лишь один его вид.
const
N=5;
M=3;
type matr=array [1..N,1..M] of integer;
var
a:matr;
t,k:integer;
procedure Random(var b:matr; var l,p:integer);
var i,j:integer;
begin
for i:=1 to N do
begin
for j:=1 to M do
begin
a[i,j]:=random(l)+1;
write(a[i,j]:4);
end;
writeln;
end;
writeln;
for j:=1 to M do
write(a[p,j]:4);
end;
begin
write('Введите длину отрезка(t): '); readln(t);
write('Введите интересующую строку(k): ');readln(k);
Random(a,t,k);
writeln;
end.
В задании не требуется выводить всю матрицу, но для проверки оставил. Убери, если критично, но правильность работы программы не проверить будет
Z=23.5
Объяснение:
x=50 , z=1 ,i=0 и потом
Z1=(1+50/2)/2=13
i1=0+1=1
1<4 принадлежать
Z2=(Z1+50/2)/2=19
i2=i1+1=2
2<4
Z3=(Z2+50/2)/2=22
i3=i2+1=3
3<4
Z4=(Z3+50/2)/2=23.5
i4=i3+1
4<4 неправильно и ответ Z=23.5