Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program pryam;
var y1, y2, y3, x1, x2 : real;
begin
writeln ('введите координату (у) верхней точки прямой');
readln (y1);
writeln ('введите координату (у) нижней точки прямой');
readln (y2);
writeln ('введите координату (х) точек-концов прямой');
readln (x1);
writeln ('введите координату (у) точки, принадлежность к прямой которой нужно определить');
readln (y3);
writeln ('введите координату (х) точки, принадлежность к прямой которой нужно определить');
readln (x2);
if (y3< =y1) and (y3> =y2) and (x2=x1) then writeln (' принадлежит ')
else writeln (' не принадлежит ');
readln;
end.
var n,a,b,c,d,s: integer;
write('n='); readln(n); {n - даанное 4-хзначное число}
a: =n mod 10; {последняя, 4-я, цифра числа}
b: =(n div 10) mod 10; {предпоследняя, 3-я, цифра}
c: =(n div 100) mod 10; {2-я цифра}
d: =n div 1000; {1-я цифра}
s: =a+b+c+d;
writeln('s=',s);
80 * 60 = 4800 символов на 1 странице
4800 * 450 = 2160000 символов в книге
обычно 1 символ кодируется 1 байтом информации, значит
в книге 2160000 байт, переведем их в мегабайты
2160000 : 1024 = 2109,375 кб (килобайт)
2109,375 : 1024 = 2,06 мб (мегабайт)
следовательно рукопись на 1 дискету не поместится, для нее необходимо 2 дискеты.
в египетском письме было более 750 иероглифов, не было гласных. иероглифы обозначали целые слоги и звуки.
Популярные вопросы