Ответ:
__________________________________________________________
//Pascal ABC.NET v3.1 сборка 1172
Var
a:real;
begin
readln(a);
if a>0 then writeln('Положительное, ',a/2) else
if a<0 then writeln('Отрицательное, ',sqr(a)) else
writeln('0');
end.
Пример ввода:
-12
Пример вывода:
-, 144
Формула: N =
, где i = 3.
Подставляем: N =
=> <u>N = 8</u>.
Const Glasnie=['E', 'Y', 'U', 'I', 'O', 'A','e', 'y', 'u', 'i', 'o', 'a'];var i,k: integer; s: string;begin ReadLn(s); k:=0; for i:=1 to length(S) do if s[i] in Glasnie then k:=k+1; writeLn('Количество гласных - ',k)end.