//Pascal ABC.NET v3.1 сборка 1172
begin
writeln(range(60,80).where(x -> x mod 5=0).Sum);
end.
Вывод:
350
var n,i,a,s:integer;
begin
write('n = ');
readln(n);
s:=0;
writeln('Введите ',n,' натуральных чисел');
for i:=1 to n do
begin
read(a);
if a div 100=4 then s:=s+a;
end;
writeln('s = ',s);
end.
Пример
n = 5
Введите 5 натуральных чисел
123 456 4321 45 401
s = 857
2^4y Мбайт= 2^3x бит
<span>2^23+4y=2^3x </span>
<span>23+4y=3x - это первое уравнение </span>
<span>2^x Кбайт= 2^y Мбайт</span>
<span>2^x = 2^ 10+y </span>
<span>x=10+y - второе уравнение </span>
<span>23+4y= 3(10+y) </span>
<span>23+4y=30+3y </span>
<span>y=7 </span>
<span>x=17</span>
Var
x,y:real;
begin
Write('Введите координаты точки: ');
Read(x,y);
if (y>=-x*x) and (y>=-x-2) and (x<=0) then Writeln('Входит')
else Writeln('Не входит')
end.
Тестовое решение
Введите координаты точки: -1 -0.5
Входит