Вводится последовательность чисел конец последовательности -0 найти максимальное число. паскаль абс
Ответы
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var current, past, sum: real;
i, n: integer;
begin
current : = 10;
for i : = 1 to 10 do begin
writeln(i, ' ', current);
past : = current;
current : = current * 1.1;
end;
current : = 10; sum : = 0;
write('n = ');
read(n);
for i : = 1 to n do begin
sum : = sum + current;
past : = current;
current : = current * 1.1;
end;
writeln('за ', n, ' дней: ', sum);
end.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var current, past, sum: real;
i, n: integer;
begin
current : = 10;
for i : = 1 to 10 do begin
writeln(i, ' ', current);
past : = current;
current : = current * 1.1;
end;
current : = 10; sum : = 0;
write('n = ');
read(n);
for i : = 1 to n do begin
sum : = sum + current;
past : = current;
current : = current * 1.1;
end;
writeln('за ', n, ' дней: ', sum);
end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Информатика СИ++. Dev-C++ 5.1
решить задачи по информатике!
Пакет программ, работой компьютера и обеспечивающий взаимодействие между человеком и компьютером .
Определите название инструментов с которых можно разворачивать объекты в
begin
write('a='); readln(a);
max:=a;
while a<>0 do begin
if a>max then max:=a;
write('a='); readln(a);
end;
writeln('max = ',max);
end.
Пример:
a=25
a=84
a=26
a=17
a=80
a=51
a=0
max = 84