1)
var x,y : integer;
begin
read (x);
y := 5 * x * x + 16 * x * x + 18 * x - 29;
write (y);
end.
2)
var a,b : integer;
c,p,s : real;
begin
readln (a,b);c := sqrt(a*a + b*b);
p := a + b + c;s := (a*b)/2;
write ('Периметр равен ',p,', площадь равна ',s, '.');
end.
3)
var a,b,c : integer;
begin
readln (a,b,c);
write ((a+b)/(a-b) + sqrt(c/2));
end.
<em>// PascalABC.NET 3.2, сборка 1407 от 18.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a,b:integer;
Write('Введите границы интервала: '); Read(a,b);
if a>b then Swap(a,b); // страховка от злобных буратинок
var k:=Range(a,b).Where(m->sqr(sin(m))+cos(m*m)<0).Count;
Writeln('На интервале найдено отрицательных значений- ',k)
end.
<u>Пример</u>
Введите границы интервала: -3 10
На интервале найдено отрицательных значений- 4
Информация — от латинского слова "information", что означает сведения, разъяснения, изложение. Информа́тика<span> — </span>наука<span> о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки </span>информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений. Программи́рование — процесс создания компьютерных программ.
2019=1024+512+256+128+64+32+2+1=
=2^10+2^9+2^8+2^7+2^6+2^5+2^1+2^0
ответ 8 файлов