Вторая декада означает что надо найти минимальную температуру с 11 по 20 число. Программа будет работать только с заполненным массивом, это только алгоритм нахождения var a: array [1..30] of integer; min,i: integer; begin min:= a[11]; for i := 11 to 20 do if a[i] < min then min := a[i]; writeln(min); end.
Рассмотрим простейшую схему кредитования (и самую невыгодную для заёмщика), когда за каждый год отдается фиксированный процент p от первоначальной суммы кредита k без учета того, что часть кредита уже погашена за предыдущие годы. В этом случае ежегодная сумма процентов по кредиту составит Sk=k×p%/100%. За n лет будет отдано n×Sk. И еще нужно вернуть саму сумму кредита k. Итого нужно вернуть k+n×Sk. Доход за это время составит n×r и получаем неравенство n×r ≥ n×Sk+k n×(r-Sk) ≥ k → n ≥ k/(r-Sk) с округлением до целых в большую сторону.
// PascalABC.NET 3.3, сборка 1583 от 25.11.2017 // Внимание! Если программа не работает, обновите версию!
begin var (k,p):=ReadReal2('Сумма кредита и процент годовых:'); var r:=ReadReal('Предполагаемый годовой доход:'); var Sk:=k*p/100; if r<=Sk then Writeln('Рассчитаться за кредит невозможно') else Writeln('Количество лет на погашение кредита: ',Floor(k/(r-Sk))) end.
Пример Сумма кредита и процент годовых:10 0000 16 Предполагаемый годовой доход: 24000 Количество лет на погашение кредита: 12
// PascalABC.NET 3.3, сборка 1583 от 25.11.2017 // Внимание! Если программа не работает, обновите версию!
begin var s:=ReadlnString.ToUpper; // к верхнему регистру var (kO,kE):=(0,0); // счетчики for var i:=1 to s.Length do case s[i] of 'О':ko+=1; 'Е':kE+=1 end; if kO>kE then Writeln('Буква "О" встречается чаще') else if kO<kE then Writeln('Буква "Е" встречается чаще') else Writeln('Буквы "О" и "Е" встречаются одинаковое число раз') end.
Пример Если бы Ольга захотела, она бы училась лучше Елены Буква "Е" встречается чаще
Программа будет работать только с заполненным массивом, это только алгоритм нахождения
var
a: array [1..30] of integer;
min,i: integer;
begin
min:= a[11];
for i := 11 to 20 do
if a[i] < min then min := a[i];
writeln(min);
end.