Var r,w,s:integer;
begin
writeln('Введите исходные данные:');
write('Величина вклада (руб.): ');
readln(r);
write('Ежемесячная величина дохода (руб) ');
readln(w);
s:=r+3*w;
write('Сумма вклада по окончании трех месяцев: ',s,' руб.');
s:=r+6*w;
write('Сумма вклада по окончании шести месяцев: ',s,' руб.');
s:=r+12*w;
write('Сумма вклада по окончании года: ',s,' руб.');
end.
1) 15,18,21,24... 2) -24. ,- 26
1)Выделите текст или ячейки с текстом, который нужно изменить. Чтобы выделить весь текст в документе Word, нажмите клавиши CTRL+A.
2)На вкладке Главная в поле Размер шрифта выберите нужный размер шрифта.
Программа находит сумму 11-ти чисел, удовлетворяющих условию быть кратным 7-ми, и не быть кратным 3-м