Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
в египетском письме было более 750 иероглифов, не было гласных. иероглифы обозначали целые слоги и звуки.
n = 64 - 32 = 32
i = log₂ 32 = 5 бит
количество вопросов, которые нужно задать равно 5
var
i,j,s: integer;
x: array[1..8,1..8] of integer;
y: array[1..10,1..10] of integer;
begin
s: =0;
for i: =1 to 8 do
for j: =1 to 8 do
readln(x[i,j]);
if i< =j then s: =s+x[i,j];
end;
writeln("сумма для x=", s);
for i: =1 to 10 do
for j: =1 to 10 do
readln(y[i,j]);
if i< =j then s: =s+y[i,j];
writeln("сумма для y=", s);
end.
program xxx;
var d, x1, x2, y1,y2 : real;
write('введите координаты 1 точки: ');
readln(x1, y1);
write('введите координаты 2 точки: ');
readln(x2, y2);
d: =sqrt(sqr(x2-x1)+sqr(y2-y1));
write('растояние между точками =', d);
readln
Популярные вопросы