20 букв и 10 цифр составляют алфавит объемом 30 символов. Для размещения 30 символов требуется 5 бит (2^5=32 - достаточно, а 2^4=16 - не хватает).
Для одного 8-символьного номера требуется 5х8=40 бит.
Для 40 номеров потребуется 40х40=1600 бит. Или 1600/8=200 байт.
Var a: integer;
begin
write('Введите трехзначное число: ');
readln(a);
writeln('Результат: ',(a mod 100)*10+(a div 100));
end.
var a,b,c:integer;
begin
writeln('Введите a,b,c');
write('a=');
readln(a);
write('b=');
readln(b);
write('c=');
readln(c);
if a+b>b+c then
begin
if a+b>a+c then
write('a+b=',a+b)
else
write('c+a=',c+a);
end
else if b+c>=a+b then
begin
if b+c>c+a then
write('b+c=',b+c)
else
write('c+a=',c+a);
end
else
write('c+b=',c+b);
end.
<span>Сплошной массив байтов, располагающийся в старших адресах сразу за областью памяти, которую занимает тело программы называется кучей. Так что, В).
</span>
Объяснение:
#include <iostream>
using namespace std;
int main(){
for(int i = 150; i <= 1500; ++i){
if(i % 3 != 0 && i % 5 != 0 && i % 11 != 0 && i % 13 != 0)
cout << i << endl;
}
return 0;
}
Var a:array[1..7]of integer;
p3,p5,s,i,k,min,n:integer;
srz:real;
begin
p5:=1; p3:=1; min:=25;
for i:=1 to 7 do
begin
read(a[i]);
if a[i]<>0 then
begin
if a[i] mod 5=0 then p5:=p5*a[i];
if a[i] mod 3=0 then p3:=p3*a[i];
if a[i] mod 2=0 then
begin
s:=s+a[i];
k:=k+1;
end;
if a[i]<min then
begin
min:=a[i];
n:=i;
end;
end;
end;
srz:=s/k;
writeln;
write('proizv kratnih trem:',p3,' proizv kratnih peti:',p5,' srednee znachenie chet elementov:',srz,' minimalnoe:',min,' nomer minimalnogo:',n);
end.
