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.
Объяснение:Извини я бы сделал но пока не могу