Помогите разобраться. Решить задачу, используя оператор Repeat (цикл с постусловием).
Получить таблицу температур по Цельсию от 0 до 100 градусов и их эквивалентов по
шкале Фаренгейта.
Решение через (While (цикл с предусловием)
Program while;
uses crt;
Var Tc:integer
Tf:real
Begin
Tc:=0;
while (Tc <=100) do
Begin
Tf:=(9/5)*Tc+32
writeln (Tc:2, Tf:8:2);
Tc:=Tc+1
end;
end.
Please enter comments
Please enter your name.
Please enter the correct email address.
You must agree before submitting.

Copyright © 2024 SCHOLAR.TIPS - All rights reserved.