Program zad1;
Var
x,B1,B2,B3,B4,B5,y:real;
begin
writeln('Введите X');
readln(x);
B1:=x+1;
B2:= 1/B1;
B3:= B2-1;
B4:= B2+1;
B5:= B3/B4;
y:= B5-1;
writeln('Ответ: ',y:6:2);
end.
Pascal
var n: integer;
a: 0..9; b: boolean;
begin
write('Введите число N: ');
readln(n);
if n>0 then
begin
write('Введите цифру A: ');
readln(a);
if (a>=0) and (a<=9) then
begin
while (n>1) do
begin
if a=n mod 10 then begin b:=true; break; end else b:=false;
n:=n div 10;
end;
writeln(b);
end else writeln('Введите цифру A от 0 до 9');
end else writeln('Введите другое число, больше 0!');
end.
1.В марте у нас будут каникулы.2.Это был великан.3.В дороге Громова застал буран.4.На Камчатек много гейзеров.5.Караван двигался по барханам.6.Вдали появились айсберги.7.Однажды мы заблудились в лесу.8.Мы возобновили переписку.9.Муму привязалась к Герасиму.10.Месяц спутя геологи уехали.
Переводим 1100011 и у нас получается 99