СОСТАВИТЬ ПРОГРАММЫ! 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% без участия вкладчика). Напечатать таблицу увеличения суммы вклада по месяцам на год. Сумма вклада вводится с клавиатуры.
Reastern1
1
03.11.2020 20:05
2
Другие вопросы по теме Информатика
Valya039782
07.08.2019 19:20
maarusya
07.08.2019 19:20
serg159
07.08.2019 19:20
annajortsorensen
21.05.2020 14:42
SuperMaksni4ic
06.04.2021 15:14
френкинштеин
06.04.2021 15:13
Steyflie
06.04.2021 15:12
oleca3
09.01.2021 15:33
Популярные вопросы
- Решение кросcвордов. 1) Вопросы: 1. Основоположник административной теории....
2 - Чем были вызваны слова Николая 1 всем досталось, а мне более всех ...
3 - Выпишите односоставные предложения Патриотизм чувство самое стыдливое! - писал...
1 - Назвіть особливості репродукції людини...
1 - Визначте типи речень у тексті.( складносурядне, безсполучникове...) У лісах...
3 - коло вписане в рівнобедрений трикутник, діть його бічну сторону на відрізки...
2 - Виберіть терміни і поняття що стосуються міста Рим і життя в ньому: Капітолій,...
1 - При 0°С осмотическое давление 0,1 М раствора карбоната калия равно 272,8 кПа....
3 - Complete the sentences with the correct form of the words in capitals. 1 The......
2 - При резком изменении положения тела,чувстве страха может возникнуть:-) 1.Кома....
2
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.