Var
n:Integer;
Begin
Writeln('Введите в градусах Цельсия');
Read(n);
Writeln('В Фаренгейтах это = ',(n*9/5)+32:0:1);
end.
Вступление:
1) trunc- получает целое из числа
2) round - округляет до ближайшего целого(банковское округление, если число стоит посредине между двумя целыми 2.5=2; 3.5=4, то есть до ближайшего четного)
3) a div b - делит a/b и возвращает целую часть
4) a mod b - делит a/b и возвращает остаток
5) sin - синус числа
Теперь к заданиям:
trunc(6.9)=6
trunc(6.2)=6
20 div 6=3
2 div 5=0
round(6.9)=7
round(6.2)=6
20 mod 6=2
2 mod 5=2
3*7 div 2 mod 7/3-trunc(sin(1))=1
1)3*7=21
2)21 div 2=10
3)10 mod 7=3
4)3/3=1
5)sin(1)=0,с мелочью
6)trunc(0,...)=0
7)1-0=1
Uses drawman;beginfield(23,5);topoint(1,4);pendown;topoint(1,2);topoint(4,2);topoint(4,4);topoint(1,4);penup;topoint(3,3);pendown;topoint(3,1);topoint(6,1);topoint(6,3);topoint(3,3);penup;topoint(5,4);pendown;topoint(5,2);topoint(8,2);topoint(8,4);topoint(5,4);penup;topoint(7,3);pendown;topoint(7,1);topoint(10,1);topoint(10,3);topoint(7,3);penup;topoint(9,4);pendown;topoint(9,2);topoint(12,2);topoint(12,4);topoint(9,4);penup;topoint(11,3);pendown;topoint(11,1);topoint(14,1);topoint(14,3);topoint(11,3);penup;topoint(13,4);pendown;topoint(13,2);topoint(16,2);topoint(16,4);topoint(13,4);penup;topoint(15,3);pendown;topoint(15,1);topoint(18,1);topoint(18,3);topoint(15,3);penup;topoint(17,4);pendown;topoint(17,2);topoint(20,2);topoint(20,4);topoint(17,4);penup;topoint(19,3);pendown;topoint(19,1);topoint(22,1);topoint(22,3);topoint(19,3);penup;end.
Ответ:
№13
а).
б).
в).
№14
а).
б).
в).
Подробное решение на фотографиях.