var
year:integer;
begin
writeln('Введите год');
readln(year);
if (year > 2000) and (year < 2101) then
writeln('Этот год относится к XXI веку') else
writeln('Этот год не относится к XXI веку');
end.
Задача 1
а)А×В×А×В+В= а×а×в×2в
б)(А+В)×(А+В)=2А×2В
в)А+А×В+А×С=3а×В×С
× это умножить если че
На сколько я знаю, надо просто все перемножить
Var x,y : real; b:boolean;
begin
write('x = '); readln(x);
write('y = '); readln(y);
b:= (x*x+y*y<=36)and((x<=0)or(x>=0)and(y<=0));
writeln(b);
<span>end.</span>