Напишите программу, которая вводит четырехзначное число и "вырезает" из него вторую цифру с начала, например, из числа 1234 должно получиться число 134
написать на языке

var i: integer;

s,z: real;

begin

    z: =8;

    for i: = 2 to 7 do begin

          s: =s+z;

          z: = z*(1+10/100);

    end;

    writeln(s);

end.

отмечено как нарушение через stoker ( w: 0% t: 4 )

причина: смотри (^ этот символ означает степень, например 3^2 = три в квадрате или три в степени два) : 2,1 гбайт * 90% = 1,89 гбайт 1,89 гбайт = 1,89 * 2^10 мбайт 1,89 гбайт = 1,89 * 2^20 кбайт 1,89 гбайт = 1,89 * 2^30 байт при сохранении текста обычно используется кодировка ascii (26+26+33+33+10+спец.символы ~= 256 => 1 символ занимает 8 бит то есть 1 байт) таким образом, из условий мы имеем, что скорость записи составляет 200 символов * 1 байт = 200 байт/ минуту 200 байт представим в виде 100 * 2 теперь 3 класс s=t*v => t=s/v дано: s=1,89 * 2^30 кбайт v=100*2^1 t - ? решение: t=(1,89 * 2^30) / (100*2^1) = 0,0189 * 2^29 (минут) округлив - получается где-то 19 лет и 4 месяца (19,358 лет)

ошибка в том что натуральный логарифм (-1) не существует

 

program summa; uses crt; var n,i: integer; s: real;

p1,p2: integer; begin clrscr; writeln ('vvedite n'); readln (n); s: =0;

p1: =-1;

p2: =2; for i: =1 to n do

begins: =s+p1/p2;

p1: =-p1;

p2: =p2*2;

end; writeln ('s=', s); readln; end.