Пожалуйста срочно надо к завтрашнему днюзадача: составьте программу в паскале вычислите площадь треугольника , две стороны котор
Пожалуйста срочно надо к завтрашнему днюзадача: составьте программу в паскале <span>вычислите площадь треугольника , две стороны которого равны А и B , а угол между ними равен D (в градусах) </span>
Program zd; const t=0,5; var a,b,c:byte; r,s:real; begin writeln('Введите сторону А'); readln(a); writeln('Введите сторону В'); readln(b); writeln('Введите угол С (в градусах)'); readln(c); r:=c*pi/180; {Перевод из градусов в радианы} s:=t*a*b*sin(r); {Формула для вычисления} writeln('Результат = ',s); readln; {Сразу выводит результат на монитор без нажатия Ctrl+F9 (вроде бы)} end. Вроде бы так, попробуй запустить проверить
После рандомного выбора планеты вывести эту переменную: print(planet)
import random planets = ['Меркурий', 'Венера', 'Земля', 'Марс', 'Юпитер', 'Сатурн', 'Уран', 'Нептун'] planet = random.choice(planets) print(planet) print('Какую планету я загадал?') answer = input() if answer == 'Плутон': (тут пробел)print('Плутон уже не считается планетой.') elif answer not in planets: (пробел)print('Да это же вообще не название планеты Солнечной системы.') elif answer == planet: (пробел)print('*** Верно! *** Это', answer) else: (пробел)print('Неверно!')
Var a,b:array[1..10] of integer;i,j,min,min2,sum:integer;beginrandomize;for i:=1 to 10 dobegina[i]:=random(10);writeln(a[i]);end;min:= a[1]; for i:= 2 to 10 dobeginif (a[i] < min) then min:= a[i]; end;writeln('минимальный элемент 1 массива ',min);writeln('2 msssiv');for j:=1 to 10 dobeginb[j]:=random(10);writeln(b[j]);end;min2:=b[1];for j:=2 to 10 dobeginif ( b[j] < min2 ) then min2:= b[j]; end;writeln('минимальный элемент 2 массива',min2);sum:=min+min2;writeln('summa min:',sum);end.