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