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. "бабушка попросила"
2. "взяла лукошко"
3. "подошла к кусту"
4. "сорвала ягоду"
5. "сварили варенье"
тогда логика задачи будет следующей
бабушка попросила
Если Маша согласилась тогда
взяла лукошко
подошла к кусту
Если куст с ягодами Тогда
Пока (на кусте есть ягоды) и (лукошко пустое) Цикл
сорвала ягоду
КонецЦикла
КонецЕсли
сварили варенье
КонецЕсли
В принципе, если несколько кустов, нужен цикл обхода по кустам пока не наполнится лукошко.
