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
Автомат получает на вход трехзначное десятичное число. По полученному числу строится новое десятичное число по следующим правилам. Вычисляются два числа - сумма старшего и среднего разрядов, а также сумма среднего и младшего разрядов заданного числа.
Полученные два числа записываются друг за другом в порядке неубывания без разделителей.
Определите, сколько из приведенных ниже чисел могут получаться в результате работы автомата.
1616 169 163 1916 1619 316
В ответе запишите количество чисел и обоснование результата.
ответ
1616 -> 16 и 16, 169 -> 1 и 69, 163 -> 1 и 63, 1916 -> 1 и 916, 1619 -> 16 и 19, 316 -> 3 и 16
9 + 9 = 18 - максимально возможное число.
Оставим все числа, в которых слагаемые меньше или равны 18:
1616 -> 16 и 16, 316 -> 3 и 16
1616 -> 16 и 16 -> 888 (8 + 8 = 16, 8 + 8 = 16) - подходит
316 -> 3 и 16 -> такое число подобрать не получится, потому что между 3 и 16 большая разница и исходного числа не существует.
ответ: 1 число (1616)
