Количество символов Х.
Тогда I1=8*X, I2=16*X
I2-I1=16X-8X
8X=334
X=334/8
точно "на 334 бита"?
Должно быть число, которое делится на 8 нацело
Задание 1:
Var n,i:integer;
begin
readln(n);
for i:=1 to n do
write(i,',');
writeln;
<span>end.
Задание 2:
Var n,i:integer;
begin
readln(n);
for i:=n to 1 do
write(i,',');
writeln;
<span>end.
Задание 3:
Var n,k,i:integer;
begin
writeln('Введите N');
readln(n);
writeln('Введите K');
readln(k);
for i:=1 to n do
write(k,',');
writeln;
<span>end.
<u>Научитесь наконец писать разборчиво задания! Ничего не понятно!!!</u></span></span></span>
Var
x, y: real;
begin
Write('Введите через пробел координаты точки (x,y): ');
Readln(x, y);
Writeln((y >= 0) and (y <= x + 4) and (y <= 4 - x))
end.
var
x, y: real;
begin
Write('Введите через пробел координаты точки (x,y): ');
Readln(x, y);
Writeln((x >= 0) and (y >= x - 6) and (sqr(x) + sqr(y) <= 36))
end.
Ответ 132. Т.к цикл проработает 11 раз
12*11 = 132
Program prl;
uses crt;
var i,n,summa:integer;
srednee:real;
a:arra[1..100] of integer;
begin
write('Введите кол-во четных элементов');
readln(n);
summa:=0;
for i:=1 to n do begin
write('Введите ',i,' элемент:');
readln(A[i]);
summa:=summa+A[i];
end;
srednee:=summa/(n div 2);
writeln('Среднее арифметическое',srednee:3:2);//
readln;
end.
