var
a: array[0..9] of integer;
k, i: integer;
begin
k := 0;
for i := 0 to 9 do
begin
readln(a[i]);
if a[i] > 12 then k += 1;
end;
writeln(k);
end.
<em>// PascalABC.NET 3.3, сборка 1611 от 06.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (x,eps):=ReadReal2('Введите аргумент и точность:');
var (i,s,px,fn,x2):=(1,0.0,x,1.0,x*x);
var t:real;
repeat
t:=px/fn; i+=1; px*=x2; fn*=(2*i-1)*(2*i-2); s+=t
until Abs(t)<=eps;
Writeln(s:0:15,' - расчетное значение');
Writeln(Sinh(x):0:15,' - вычислено функцией Sinh(x)')
end.
<u>Примеры</u>
Введите аргумент и точность: 1.543 1e-8
2.232433065790520 - расчетное значение
2.232433065795030 - вычислено функцией Sinh(x)
Введите аргумент и точность:1 .543 1e-15
2.232433065795030 - расчетное значение
2.232433065795030 - вычислено функцией Sinh(x)
Введите аргумент и точность: -12.6 1e-7
-148279.282647414000000 - расчетное значение
-148279.282647415000000 - вычислено функцией Sinh(x)
Если числа нечётные, то их сумма будет чётной. Смотрите:
( 2n+1)+(2n+1)=4n+2.
Соответственно если 3+9=12 (чётное) и с другими примерами аналогично.
Бандикам устройство для захвата экрана или нужно что-то посерьёзней?)))
var s:string;
i:byte;
begin
writeln('Введите слово:');
readln(s);
writeln;
writeln('Их номера в алфавите:');
for i:=1 to length(s) do
case s[i] of
'А'..'Я' : write(ord(s[i])-1038+' ');
'а'..'я': write(ord(s[i])-1070+' ');
end;
readln
end.