<u>PascalABC.NET 3.3.5, сборка 1650 от 01.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
Если надо быстро, можно так:
uses GraphABC;
begin
Draw(x->1/x)
end.
Var
hn,hv:integer;
begin
writeln('Введите верхнее и нижнее давление');
readln(hv,hn);
if (hv<=100)and(hn>=60)and(hv-hn>=30)then
writeln('норма');
if (hv>100)then
writeln('повышенно');
if hn<60 then
writeln('низкое');
if hv-hn<30 then
writeln('не норма');
end.
MacOS-операционная система компании Apple под кодовым названием "Macintosh".
MacOS выпускается только на своих компьютерах компании Apple и имеет отличительные свойства, с операционной системой Windows, компании Microsoft
.MacOS невозможно установить на любой компьютер, а Windows можно
//Dev-C++ 5.11 (C)
#include <stdio.h>
int main()
{FILE *inp,*outp,*para;
int n=1,i;
char c,ckar;
inp=fopen("input.txt","rt");
para=fopen("input.txt","rt");
outp=fopen("output.txt","wt");
c=fgetc(inp);
while (c!=EOF)
{if (c=='\n')
{if(n>6) for(i=0;i<n;i++)
{ckar=fgetc(para);
fputc(ckar,outp);}
else
for(i=0;i<n;i++)
ckar=fgetc(para);
n=0;}
c=fgetc(inp);
n++;}
if(n>6)
for(i=0;i<n-1;i++)
{ckar=fgetc(para);
fputc(ckar,outp);}
else
for(i=0;i<n-1;i++)
ckar=fgetc(para);
return 0;}
Обозначим точку нулем, а тире - единицей.
Тогда двухзначный код может образовать два в квадрате комбинаций, трехзначный код может образовать два в третьей степени комбинаций, а четырехзначный - два в четвертой степени комбинаций.
Ответ: 28 символов.