Порядок действий
С:\Осень\Деревья\Клён
С:\Осень\Деревья
С:\Осень\Деревья\Полив
С:\Осень\Деревья\Полив
С:\Осень\Деревья
С:\Осень\Деревья\Уход
Ответ: 3
,,,,,,,,,,,,,,,,,,,,,,,,
Var
a:integer;
begin
readln(a);
if a<0 then a:=abs(a);
writeln(a);
readln;
end.
var
a,b,c,d:integer;
begin
c:=0;
readln(a,b,c);
if a>0 then c:=c+1;
if c>0 then c:=c+1;
if b>0 then c:=c+1;
writeln(c);
readln;
end.
Если с компа,то cntr+c или cntr+v
Var sum,i:integer;
begin
for i:=100 to 1000 do
if (i mod 3=0) then sum:=sum+i;
writeln('Сумма чисел кратных 3 равна ',sum);
end.<span>
</span>