Var
m,n: array [1..15] of integer;
a,i,max: integer;
begin
readln(a);
writeln('Исходный массив:');
for i:= 1 to 15 do
begin
m[i]:= random(20);
n[i]:=m[i]*a;
if (n[i]>max) and (i mod 2=1) then max:=n[i];
write (m[i],' ');
end;
writeln;
writeln('Новый массив:');
for i:= 1 to 15 do write (n[i],' ');
writeln;
writeln('Максимальный нечетный: ',max);
<span>end.</span>
Ответ:в это утро на море ходила мать,т.к в варианте 3 было сказано,что вторая дочь купается только тогда,когда купается мать
Три основных правила безопасности в соц.сетях.
1.Знать всё про мошеничество:лотереи и конкурсы онлайн;финансовые пирамиды;спам;фальшивые программы с вирусами.
2.Защитить свою информацию:придумывать сложные пароли;использовать как минимум 2 электронных адреса-один для переписки с друзьями,второй для регистрации на сайтах,форумах, в соц.сетях.Второй адрес должен быть сложным для запоминания и воспроизведения.
3.Использовать дополнительные системы безопасности.На рынке новых технологий имеется немало программ и систем, призванных
обеспечить безопасность пользователя сети, а также его компьютера,
мобильного устройства. Подобными утилитами обязательно нужно
пользоваться.
<em><u>Код на Паскале:</u></em>
Program proba;
Uses crt;
Var n,s:integer;
Begin
writeln('введите натуральное число');
Readln(n);
s:=0;
repeat s:=s+n mod 10;
n:=n div 10;until n=0;
writeln('сумма цифр ',s);
<span>end.
<em><u>P.S. Программа вычисляет не только трехзначные числа ;)</u></em></span>