Var t:integer;
b,a:real;
begin
write('Вклад равен ');
read(a);
b:=1.05;
while a<1000000 do
begin
a:=a*b;
t:=t+1;
end;
write('Под процентами пролежавши ',t,' лет вклад накопил ',a:12:4,' рублей');
end.<span>
</span>
Var
a, b:integer; //числа типа integer, т.е. целые числа
Begin
write('Введите число a: ');
read(a); //читаем значение а
write('Введите число b: ');
read(b); //читаем значение b
if(a>b) then writeln('>'); //если a>b тогда пишем '>'
if(a<b) then writeln('<'); //если a<b тогда пишем '<'
if(a=b) then writeln('='); //если a=b тогда пишем '='
end.
n = int(input("Введите n: "))
s = 0
for i in range(0,n+1):
s = s+1/(2*i+1)
print('s = ',s)
Пример:
Введите n: 5
s = 1.878210678210678
Var
a,b:real;
begin
Write('Введите два числа через пробел: '); Read(a,b);
Writeln('Сумма равна ',a+b)
end.
Ответ:
[x-1] [x-1] [x-1]
Объяснение:
система счисления x
используются цифры 0 .. [x-1]
ответ - число из трех максимальных цифр