Var c, d, rez:integer;
function k9 (a,b:integer):integer;
begin
if a=b then rez:=a+b else rez:=b-a;k9:=rez
end;
begin
write ('Введите a - ');readln(c);
write ('Введите b - ');readln(d);
writeln(k9(c ,d));
<span>end.</span>
Тогда так
ответ Счастливого плавания
Компьютерные вирусы - это ненужное, вредное для компьютера, т.е то, что удаляет все файлы, при проникновении в компьютер, н/р: через диски, флешки, всякие сайты.
Антивирусные программы- это то, что истребляет компьютерные вирусы. Это полнейшая противоположность, поэтому общего у них вообще не будет.
Program n1;
var F: array[1..14] of integer;
i,k: integer;
begin
randomize;
write('массив: ');
for i:=1 to 14 do begin
F[i]:=random(23)-11;
write(F[i],' ');
end;
writeln;
k:=0;
for i:=1 to 14 do if F[i] mod 5=0 then k:=k+1;
write('кол-во эл. крат. 5: ',k);
end.
<span>Сервер (server) – компьютер, предоставляющий свои ресурсы клиентам сети. Различают следующие виды серверов:</span>
файловый сервер предназначен для хранения и предоставления файлов, с которыми работают пользователи;сервер баз данных обеспечивает доступ клиентам к общим базам данных;сервер приложений служит для предоставления пользователям прикладных программ;сервер печати обеспечивает печать на общем печатном устройстве со всех рабочих мест;Web-сервер обеспечивает предоставление информации через сеть Internet;почтовый сервер обеспечивает циркуляцию электронной почты, как внутри организации, так и во внешней сети.