СОСТАВИТЬ ПРОГРАММЫ! 1. Получить таблицу результатов температуру по Цельсию от 0 до 25 градусов и их эквивалентов по шкале Фаренгейта, используя для перевода формулу
Тf = 9*Tc/5+32.
Примерно так:
Цельсия | Фаренгейт
0 | 32
1 | 33.8
2
3 и т.д.
2. Найти сумму N произвольных чисел, вводимых с клавиатуры, пока не введёте ноль.
3. Даны действительное число a, натуральное число n. Вычислить: a(a+1)...(a+n-1).
4. Банк начисляет на вклады 5% каждый месяц(т.е. каждый месяц вклад увеличивается на 5% без участия вкладчика). Напечатать таблицу увеличения суммы вклада по месяцам на год. Сумма вклада вводится с клавиатуры.
var tf : real;
begin
for tc : integer := 0 to 25 do
begin
tf := (9 * tc) / 5 + 32;
println(tc, '|', tf);
end;
end.
2)var a, sum : real;
begin
readln(a);
while a <> 0 do
begin
sum += a;
readln(a);
end;
print(sum);
end.
3)var b : real;
var a : real := ; //введешь нужное тебе число
var n : integer := ; //введешь нужное тебе число
begin
b := a;
for i: integer := 1 to n-1 do
begin
b := (a + i) * b
end;
print(b)
end.
4)var v, p : real;
begin
readln(v);
for i : integer := 1 to 12 do
begin
v += v/20;
println(i,v)
end;
end.