Дано: Решение:
k=27
i=8 бит = 1 байт I=K*I=27*1=27 байт
-------------------------
Найти I ?
Ответ: 27 байт или 216 бит
Var a,b:integer;
begin
read(a,b);
a:=a+b;
b:=a-b;
a:=a-b;
writeln('a=',a,' b=',b);
<span>end.</span>
var n:integer;
begin
write('Введите 4-х значное число: ');
readln(n);
if n div 1000 = n mod 10 then write('Первая цифра равна последней: ',n div 1000,'=',n mod 10)
else if n div 1000 > n mod 10 then write('Первая цифра больше последней: ',n div 1000,'>',n mod 10)
else write('Первая цифра меньше последней: ',n div 1000,'<',n mod 10)
end.
uses crt;
var ch,i,n,count:integer;
begin
n:=0;
count:=0;
write(' Введите число : ');
readln(ch);
if ((abs(ch)<30000) and (ch div 100 <> 0 ) and (ch mod 7 = 0)) then inc(count);
while ((ch<>0) and ( n <1001)) do
begin
write(' Введите число : ');
readln(ch);
if ((abs(ch)<30000) and (ch div 100 <> 0 ) and (ch mod 7 = 0)) then inc(count);
inc(n);
end;
writeln(count);
readln;
end.
Var n,s,i: integer;
begin
write('Количество слоев: ');
readln(n);
for i := 1 to n do
s:=s+i*i;
writeln('Число шаров: ',s)
<span>end.</span>