Var
a: array[1..4] of integer;
i, max: integer;
begin
for i := 1 to 4 do
readln(a[i]);
max := a[1];
for i := 1 to 4 do
if (a[i] mod 2 = 0) and (a[i] >= max) then
max := a[i];
if max mod 2 = 0 then
writeln(max)
else
writeln('not found');
end.
1) Жизнь
а второе какой то набор букв 2) Колар
Последним будет выполнятся импликация, импликация ложна только в одном случае, когда 1 высказывание истинно, а второе высказывание - ложно.
Значит, С точно ложно
<span>( (A¥B)^B) последнее действие конъюнкция. конъюнкция истинна, когда оба высказывания истинны, значит В точно истинно
</span>высказывание А может быть любым, от него результат не зависит.
1600*120=192000 - количество пикселей
24*192000=4608000 бит - объем изображения
4508000\8=576000 байт- объем изображения
1 магабайт = 1 000 000 байт
576000\1 000 000=0.576 мегабайт
Program DvachAnon;
var x:real;
const a=7.5;
function CalcY(x:real):real;
begin
CalcY:= ((3*sqr(a)+2*abs(x))/(2*x-sqrt(3*a)))*2*cos(sqr(x));
end;
begin
write('Введите переменную "х":');
read(x);
writeln('y = ', CalcY(x));
end.
-------------------------------------------------------------
UPD: не уверен, как это правильно должно выглядеть, спросите у кого-нибудь знающего :D