Помогите разобраться. Решить задачу, используя оператор 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.

Ответы:
Евгения Ляшчук
11-03-2014 11:44

Program p1;var Tc:integer;Tf:real;BeginTc:=0;repeatTf:=(9/5)*Tc+32;writeln (Tc:2, Tf:8:2);Tc:=Tc+1;until (Tc=101)end.

Также наши пользователи интересуются:

⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Помогите разобраться. Решить задачу, используя оператор 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.» от пользователя ИННА ВАСИЛЬЧУКОВА в разделе Экономика. Задавайте вопросы и делитесь своими знаниями.

Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!