Program n1;
var a,sum,i: integer;
begin
sum:=0;
readln(a);
for i:=1 to a div 2 do if (a mod i) = 0 then
if i mod 2=0 then sum:=sum+i;
if a mod 2=0 then sum:=sum+a;
writeln(sum);
end.
Первое задание
VARx, y : real;
BEGIN
readln(x);
if x <= -1 then y:= -1/(x*x*x)else if x <= 2 then y:= x*x else y:=-4;
writeln(y:0:8)
END.
дальше еще скину
Упражнение 1
А) Все электроприборы работают с помощью электрического тока.
Б) Каждый школьник должен знать и неукоснительно выполнять правила поведения в школе и этикет.
В) Глаза должны находить от монитора компьютера на расстоянии 50 сантиметров, глазам необходимо давать отдохнуть каждые 10 минут.
Придумайте две задачи на конъюнкцию и дизъюнкцию(с решением)
<span>пожалуйста</span>
99- 9 нечётное число, 9 делится на 3. Надеюсь что я понял так.