Помогите разобраться. Решить задачу, используя оператор Repeat (цикл с постусловием). Получить таблицу температур по Цельсию от 0 до 100 градусов и их эквивалентов по шкале Фаренгейта. Решение через (While (цикл с предусловие...
Помогите разобраться.
Решить задачу, используя оператор 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.
Гость
Ответ(ы) на вопрос:
ГостьProgram p1;
var Tc:integer;
Tf:real;
Begin
Tc:=0;
repeat
Tf:=(9/5)*Tc+32;
writeln (Tc:2, Tf:8:2);
Tc:=Tc+1;
until (Tc=101)
end.
Не нашли ответ?
Похожие вопросы