<span>посмотрите на фотографии и скажите, что они сделали вчера</span>
Ответ:
разрешено всё что не запрещено?
или запрещено всё что не разрешено?
запрещены информации об изготовлении или получении наркотиков, порн0графия, способы совершения сYицида и призывов к его совершению, призывы к разжиганию национальной розни, к военным действиям, информация предлагающая купить фальшивые документы, оружие, информация об изготовлении ядов, бомб и тому подобное, экстремизм, оскорбление чувств верующих.
В компьютерной системе есть возможность подключать новые устройства ввода, вывода,память компьютера, заменять старые устройства на современные, неисправные - на работающие
Var A,S:longint;
Begin
Write('Введите шестизначное число: ');ReadLn(A);
S:=A mod 10;
A:=A div 10;
S:=S+A mod 10;
A:=A div 10;
S:=S+A mod 10;
A:=A div 10;
A:=(A div 100)+(A div 10) mod 10 + (A mod 10);
if A<>S then Write('Билет не является счастливым')
else WriteLn('Счастливый билет!!!')
End.
Const
n = 8;
nmax = 32767;
var
a: array[1..n] of integer;
i, t, min: integer;
begin
min := nmax;
for i := 1 to n do
begin
Read(t); a[i] := t;
if (t > 0) and (t mod 2 = 0) then
if min > t then min := t
end;
if min <> nmax then
Writeln('Минимальный положительный четный элемент равен ', min)
else
Writeln('В массиве нет четных положительных элементов')
end.
<u>Тестовое решение:</u>
353 638 -1000 -452 320 -18 19 0
Минимальный положительный четный элемент равен 320