Var x,y:real;
begin
writeln ('Введите x: ');
read (x);
if x>=1.5 then
begin
y:=SQRT(2*x-3);
writeln('y = ', y);
end else
writeln ('Под корнем отрицательное число!');
end.
Var b; integer;
begin
writeln ("В каком году появились первые ЭВМ?'');
readln (b);
if b=1943 then
writeln ('Вы правы!')
else
writeln ('<span>Вы ошиблись, прочитайте свою рабочую тетрадь ещё раз!</span>');
end.
Определим количество бит на символ
i=I/k
i=(7,5*1024*8)/7680= 8 бит
Тогда количество символов в алфавите N=2^i
N=2^8= 256
Ответ: 256
Program n1;
const maxm = 50;
maxn = 50;
var a:array[1..maxm,1..maxn] of integer;
min,max,i,j,n,m,x,maxi,mini:integer;
begin
write('Введите размеры матрицы (N*M): ');
readln(n,m);
writeln('Введите матрицу из ',n,' строк и ',m,' столбцов:');
min:=maxint; max:=-maxint-1;
for i:=1 to n do
for j:=1 to m do
begin
read(a[i,j]);
if a[i,j]>max then begin max:=a[i,j]; maxi:=i; end;
if a[i,j]<min then begin min:=a[i,j]; mini:=i; end;
end;
for j:=1 to m do
begin
x:=a[maxi,j]; a[maxi,j]:=a[mini,j]; a[mini,j]:=x;
end;
writeln('Матрица после преобразования:');
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j],' ');
writeln;
end;
<span>
end. </span>
Алгоритм содержит цикл с предусловием. Цикл выполняется до тех пор, пока b≠5. Начальное значение b=10, а в теле цикла b уменьшается каждый раз на 1, т.е. цикл будет выполнен для b=10,9,8,7,6 - пять раз.
В цикле переменная с накапливает сумму значений b, следовательно по окончании цикла с = 10+9+8+7+6 = 40
Ответ: 40
