Var
t,d,S:real;
begin
write('Введите значение t=');read(t);
write('Введите значение d=');read(d);
S:=Pi/4*(sqr(d+t*2)-sqr(d));
writeln('Площадь кольца=',S:5:2);
end.
Первая программа
var x,y:real;
begin
readln(x);
y:=sqrt(x);
writeln(y);
end.
Вторая программа
const n=4;
var i,c:integer;
s,p:real;
a:array[1..n] of real;
begin
c:=1;
writeln('Введите стороны 4-ех угольника: ');
for i:=1 to n do readln(a[i]);
for i:=1 to n-1 do begin
if(a[i] = a[i+1]) then
c+=1;
end;
if(c = 4) then begin
s:=sqr(a[1]);
p:=4*a[1];
writeln('Площадь квадрата: ',s,'. Периметр квадрата: ',p);
end
else begin
s:=a[1]*a[2];
p:=2*(a[1]+a[2]);
writeln('Площадь прямоугольника: ',s,'. Периметр прямоугольника: ',p);
end;
end.
В 7-ричной системе счисления используются 7 разных цифр.
1) Найдём сначала количество всех возможных 5-значных чисел.
На первом месте в числе может стоять любая из 7 цифр, кроме 0, то есть 6 вариантов.
На втором, третьем, четвертом и пятом местах может стоять любая из 7 цифр, то есть по 7 вариантов на каждое место.
Всего возможных чисел: 6*7*7*7*7=14406
2) Найдём теперь количество чисел, у которых строго ВСЕ цифры разные.
На первом месте в числе может стоять любая цифра, кроме 0, то есть 6 вариантов.
На втором месте может стоять любая из 6 оставшихся, то есть тоже 6 вариантов.
На третьем месте может стоять любая из 5 оставшихся, то есть 5 вариантов.
На четвертом месте может стоять любая из 4 оставшихся, то есть 4 варианта.
И, наконец, на пятом месте может стоять любая из 3 оставшихся, то есть 3 варианта.
Всего возможных чисел: 6*6*5*4*3=2160
3) Теперь найдём искомое количество чисел, у которых НЕ ВСЕ цифры разные:
14406 - 2160 = 12246
Ответ: 12246
В исходном файле 64 цвета: 2^N= 64 ---> N=6 бит для одного пикселя.
6*X - размер файла, где X - количество пикселей.
В черно - белом формате 2 цвета, (2^1=2) 1 бит - 1 пиксель.
6*X = X*1+50 *2^3
5*X=50*8
X=10*8 - количество пикселей
6*10*8 бит = 60 байт <--- ответ (размер исходного файла)
Var Ch : Char;
Begin
Readln(Ch);
Writeln(Chr(Ord(Ch)-1),Chr(Ord(Ch)+1));
end.