P.S программа написана для Pascal.
program grafic;
var
a, b, k : real;
begin
writeln('Введите координаты а- это x, а b- это y ');
writeln('a=');
read(a);
writeln('b=');
read(b);
k:=5*a*a-7*a+2;
writeln(k);
if (b=k)then
writeln('точка принадлежит графику y=5x^2-7x+2')
else
writeln('Точка не принадлежит графику y=5x^2-7x+2');
end.
Пример:
a=0 b=2 - точка принадлежит графику;
a=1 b=1 - точка не принадлежит графику.
1. Вспомогательный
2. ----------------
3.Вспомогательный
4.Повторного использования
A) 10*8*8000= примерно 78 Кбайт
б) 2*16*48000*10 примерно 2 Мбайта
512 кбит/с=64кбайт/с
В минуту – 64*60=3800 кбайт=3,75 Мбайт
1 Гбайт=1024 Мбайт
1024/3,75=273,1 минуты
273,1/60=4,55 часа=4 часа 33 минуты
Вот на это ориентироваться.
<em>// PascalABC.NET 3.2, сборка 1383 от 09.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
<em>Задача 1</em>
begin
Writeln('S=',Range(1,ReadInteger('N=')).Sum(x->x*x))
end.
<u>Пример</u>
N= 10
S=385
<em>Задача 2</em>
begin
Writeln('S=',Range(1,99,2).Sum)
end.
<u>Результат</u>
S=2500