АЛГ
нач
цел Н, буф, _и, к
к := 0
вещ сред
сред := 0
ввод Н
нц для _и от 1 до Н
ввод буф
если (буф > 0) и (mod(буф, 2) = 0) то
к := к + 1
сред := сред + буф
все
кц
вывод сред / к
кон
алг
нач
цел _и
нц для _и от 5 до 8
вывод "Y(", _и / 10, ") = ", (2 * sin(_и / 10) * sin(_и / 10)) / (cos(_и / 10) * cos(_и / 10)), нс
кц
кон
__ жесткий диск
__ DVD-ROM
__ CD-ROM
__ дискета
1) Первое задание:
var a: integer;
begin
write ('Введите число: ');
readln (a);
if (a mod 2 = 0) then
writeln ('Четное число')
else writeln ('Не четное');
readln;
end.
2) Второе задание:
program test;
var a: integer;
begin
write ('Введите число: ');
readln (a);
if a > 0 then
a:= a + 1;
if a < 0 then
a:= a - 2;
if a = 0 then
a:= 10;
writeln (a);
end.
Program Geron;var
a, b, c, p, s: real;begin
readln(a, b, c); p := (a + b +c) / 2; s:= sqrt(p*(p - a)*(p - b)*(p -c )); writeln(s);
end.
В соответствии с данным алгоритмом:
a4=
Тоесть
Подставь x и получится результат.