Фото, (gif)ки, э это чёртово правило о длииных ответах
Const N = 10;
var
A: array [1..N] of integer;
i: integer;
begin
// Ввод и обработка массива
for i := 1 to N do begin
write('Введите ', i, ' элемент -> ');
readln(A[i]);
if (A[i] mod 2 = 0) then
A[i] += 2
else
A[i] := 0
end;
// Вывод полученного массива на экран
write('Массив: ');
for i := 1 to N do begin
write(A[i], ' ');
end;
end.
Var a,b,x,y,z:integer;
begin
readln(a,b,x,y,z);
if ((a>=x)and(b>=y))
or ((a>=y)and(b>=x))
or ((a>=x)and(b>=z))
or ((a>=z)and(b>=x))
or ((a>=y)and(b>=z))
or ((a>=z)and(b>=y))
<span>then write('Пройдёт')
</span><span>else write('Не пройдёт');</span>end.
Иван: французский, китайский. Антон: немецкий, японский. Пётр: шведский, греческий.
Поясняю на сколько это возможно. 2) Антон не знает шведский и французский. 3)Пётр (он самый высокий - пункт 1) не знает французский. Значит, французский - Иван. 4) Пётр не знает яп. и кит. 5) Антон не знает кит. и греч.
4),5) => китайский - Иван.
С Иваном разобрались...
2),5) => Антон не знает греческий и шведский (фр. и кит. уже у Ивана). Значит, их знает Пётр. Антону, в таком случае, достаются немецкий и японский. Надеюсь, понятно.
<span>Это файл инициализации сервера сертификатов для Paradox.NET. Он нужен .</span>