Какой информационный процесс происходит, когда мы читаем блоги в интернете: получение информации, распространение информации, обработка информации

Получение информации

PascalВыделить код

1

2

3

4

5

6

7

8

9

10

11

const n=7;

var

i:integer;

v:double;

begin

v:=1000;

for i:=1 to n do begin

v:=v*1.02;

end;

writeln('суммарный прирост вклада через 7 месяцев = ',v:4:0);

end.

1

schoolteacher

39 / 39 / 49

Регистрация: 18.12.2015

Сообщений: 127

05.02.2016, 08:37 3

Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

PascalВыделить код

1

2

3

4

5

6

7

8

9

10

11

12

program z1655173;

const n=7;

var i:integer;

v0,v1:real;

begin

v0:=1000;v1:=v0;

for i:=1 to n do begin

v1:=v1*1.02;

end;

writeln(’Сумма вклада через 7 месяцев =',v1:4:2,' руб.');

writeln(’Суммарный прирост вклада через 7 месяцев =',v1-v0:4:2,' руб.');

end.

1

1)

CLS
RANDOMIZE TIMER
INPUT "N = ", N
DIM D%(N)
PRINT "D("; N; "):";
K = 0
FOR i = 1 TO N
    D%(i) = RND * (2 * N + 1) - N
    PRINT " "; D%(i);
NEXT i
PRINT
INPUT "T = ", T
FOR i = 1 TO N
    IF D%(i) = T THEN
       K = K + 1
    END IF
NEXT i
PRINT "K = "; K
END

2)

CLS
RANDOMIZE TIMER
DIM D%(14), C%(14)
PRINT "D(14):";
K = 0
FOR i = 1 TO 14
    D%(i) = RND * 41 - 20
    PRINT " "; D%(i);
    IF D%(i) < 7 THEN
       K = K + 1
       C%(K) = D%(i)
    END IF
NEXT i
PRINT
PRINT "C("; K; "):";
FOR i = 1 TO K
    PRINT " "; C%(i);
NEXT i
END