//pascalabc.net версия 3.4.0.1677 от 17.06.18
//если программа не запускается, то обновите версию
begin
var zarazheno : = 1;
var sum : = zarazheno;
for var i : = 1 to 4 do
begin
zarazheno *= 10;
sum += zarazheno;
writelnformat('{2} новозараженно = {0}, всего заражено = {1}', zarazheno, sum, i);
end;
end.
вывод
1 новозараженно = 10, всего заражено = 11
2 новозараженно = 100, всего заражено = 111
3 новозараженно = 1000, всего заражено = 1111
4 новозараженно = 10000, всего заражено = 11111
Поделитесь своими знаниями, ответьте на вопрос:
Разлей на 3 равные частей 24-ведёрную бочку воды, используя для этого три других пустых бочонка объёмом 13 вёдер, 11 вёдер и 5 вёдер.
24л 13л 11л 5л - емкость бочек
далее пойдут количества воды в каждой из бочек после каждого перливания
0 13 11 0
0 13 6 5
6 13 0 5
6 13 5 0
6 8 5 5
0 8 11 5
8 0 11 5
8 11 0 5
8 13 3 0
8 8 3 5
8 8 8 0