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.
Действие компьютерного вируса состоит в том, что вместо букв «б», «в», «л», «о», «т» печатаются цифры, кроме цифры 0, причём разным буквам соответствуют разные цифры. Выясните, какие цифры каким буквам соответствуют, если известно, что: 1) сумма цифр слова «бот» равна 8; 2) сумма цифр слова «вол» равна 9; 3) сумма цифр слова «болт» равна 11; 4) сумма цифр слова «лото» равна 12. болт - бот = л, л = 11 - 8 = 3 вол = 9 во = вол - л = 9 - 3 = 6 лото =12 ото = лото - л = 12 - 3 = 9 бот=8, значит о > б на 1, л = 3, о = 2, б = 1, тогда т = 9 - 2 - 2 = 5, а - в = 6 - 2 = 4
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.