Задание 1
program HelloMoney;
var
y, i: integer; // Объявим переменные для количества лет вклада и для счетчика цикла
p, s: real; //Объявим переменные для количества процентов и величины вклада
begin
write('Какая сумма вклада? ');
readln(s); // Указываем сколько составляет вклад
write('На сколько лет вклад? ');
readln(y); // Указываем на сколько лет вклад
write('Какая процентная ставка?');
readln(p); // Указываем процентную ставку
for i:=1 to y do
s := s + s*p/100; // Прибавляем к вкладу ежегодный процент
write('Сумма денег составит: ', s);
end.
Объяснение:
program z1;
var i: integer;
a:array [1..5] of integer;
begin
for i := 1 to 5 do readln (a[i]);
for i := 5 downto 1 do write (a[i],' ')
end.
Объяснение:
Цикл со счётчиком:
for i := a to b do, где a <= b (от меньшего к большему)
for i := a downto b do, где a >= b (от большего к меньшему)
readln - ввод следующей строки с новой строки
write - вывод следующей строки с этой же строки