Program f1;
var x,y: real;
begin
read (x);
y:=2/(x-4);
writeln( y);
end.
А) 110000110101=6065
Б) 1010101,110010=125,62
В) 11100001011001=16131
Г) 1000010101=1025
1) Нам дано что S=0 дальше нам дано что программу s:=s+12 нужно повторить 11 раз ( for k:=1 to 11 do ).К нулю прибавляем 12 ровно 11 раз и получаем S=132
2)так же делаем и тут. обрати внимание что 0 тоже считается за количество повторов ( for k := 0 to 9 do ) так мы считаем не 9 повторов а 10.И так. <span>s := 1 следовательно к 1 прибавляем 5 по 9 рази получаем </span> S=51
program xxx;
var i, k : integer;
a : array [1..10] of real;
begin
write('введите элементы массива А:');
for i:=1 to 10 do
readln(a[i]);
writeln('исходный массив А:');
for i:=1 to 10 do
write(a[i]);
k:=0;
for i:=1 to 9 do
if a[i]<>a[10] then k:=k+1;
writeln('элементов отдичных от последнего -', k);
readln
end.
Браузеры Программы, с помощью которых просматриваются гипертексты в системе Всемирной паутины, называют