var a,b:real; begin Write('Введите a,b: '); Read(a,b); Write('P=',2*(a+b),', S=',a*b) end.
Тестовое решение Введите a,b: 12.2 8 P=40.4, S=97.6
var a,b,c,cosA,cosB,cosC:real; begin Write('Введите a,b,c: '); Read(a,b,c); cosA:=(b*b+c*c-a*a)/(2*b*c); cosB:=(a*a+c*c-b*b)/(2*a*c); cosC:=(a*a+b*b-c*c)/(2*a*b); Write('cosA=',cosA,', cosB=',cosB,', cosC=',cosC) end.
Тестовое решение Введите a,b,c: 15.3 8 14.2 cosA=0.138864436619718, cosB=0.855495719414526, cosC=0.393995098039216
aaltuxova16
18.03.2021
1 1 1 1 1 1 1 = 1*64 + 1*32 + 1*16 + 1*8 + 1*4 + 1*2 + 1*1 = 80 + 47 = 127(начиная с конца пишу над цифрами 0 1 2 3 4 5 6, это будут степени двойки, которые умножаются на эти самые единицы и складываются)
1 0 1 0 1 0 1 0 = 1*128 + 0*64 + 1*32 + 0*16 + 1*8 + 0*4 + 1*2 + 0*1 = 128+32+8+2=130+40 = 170 (не обращайте внимания на корявый подсчет, мне так удобнее)
10101010 / 2 = 5050505 (в остатке 0) 5050505 / 2 = 2525252 (в остатке 1) 2525252 / 2 = 1262626 (в остатке 0) 1262626 / 2 = 631313 (в остатке 0) 631313/ 2 = 315656 (в остатке 1) 315656 / 2 = 157828(в остатке 0) 157828 / 2 = 78914 (в остатке 0) 78914 / 2 = 39457 (в остатке 0) 39457 / 2 = 19728 (в остатке 1) 19728 / 2 = 9864 (в остатке 0) 9864 / 2 = 4932 ( в остатке 0) 4932 / 2 = 2466 ( в остатке 0) 2466 / 2 = 1233 (в остатке 0) 1233 / 2 = 616 (в остатке 1) 616 / 2 = 308 ( в остатке 0) 308 / 2 = 154 (в остатке 0) 154 / 2 = 77 (в остатке 0) 77 / 2 = 38 (в остатке 1) 38 / 2 = 19 (в остатке 0) 19 / 2 = 9 (в остатке 1) 9 / 2 = 4(в остатке 1) 4 / 2 = 2(в остатке 0) 2 / 2 = 1(в остатке 0) И снизу вверх записываем число
100 110 100 010 000 100 010 010
Проверял в онлайн-калькуляторе Все так.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Какой командой операционной системы можно удалить все файлы, имена которых начинаются на букву "х"?
del x*.*
Объяснение:
MS DOS
Удаляет из текущей папки