Запиши слова,выбирая буквыКо(л,лл)екцыя,ба(с,сс)ейн,б(и,е)речь,в(и,е)новат,во(ж,жж)и,а(п,пп)тит,су(б,бб)ота,п(и,е)сок,ин(и
Olga104916 [85]
Коллекция,бассейн,беречь,виноват,вожжи,аппетит,суббота,песок,иней,вокзал.
Напиши:Монитор,Мышка,Клавиатура,Системный блок
И сфоткай их
Сканер,принтер,веб-камера
Var i: Integer, sum: Integer;
Begin
for i := 13 to 99 do
if (mod(i, 13) = 0)
sum := sum + i;
write( sum );
end.