1)Получить таблицу температур по Цельсию от 0 до 100 градусов и их эквивалентов по шкале Фаренгейта, используя для перевода формулу:
tоF=0,18(tоС+32)
программа в паскале
Program tempiratura;
uses crt;
var toC:integer;
toF:real;
Begin
clrscr;
for toC:=0 to 100 do
begin
toF:=0.18*(tOC+32);
write ( C=,toC:2);
write ( F=,toF:4:2);
write ( );
if toC mod 5=0 then
writeln;
end;
readkey;
End.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
