1)Составьте программу, вычисляющую
отношение факториала числа N к сумме
целых чисел от 1 до N. Целое число N
должно задаваться вводом с клавиатуры с
проверкой соответствия вводимого числа.
2)Составьте программу, которая по
заданным координатам треугольника (ввод с
клавиатуры 6-ти вещественных чисел)
рассчитывает его периметр и площадь
от бэйсика до с++?
че эт значит? на любом языке появившемся между 1963 и 1983 годом?
то бишь 1968 год вполне устраивает
номер раз:
BEGIN
PROC fact=(INT n) LONG LONG INT:
BEGIN
IF n=0 THEN 1 ELSE n*fact(n-1) FI
END;
PROC summ=(INT n) LONG LONG INT:
BEGIN
n*(n+1)% 2
END;
INT n;
WHILE print("enigu n ");
read ((n, new line));
n < 1 OR n > 53
DO print("eraro, ripeto ") OD;
print(("rilatumo", new line));
print(fact(n)/summ(n))
END
номер два:
BEGIN
print("enigu Xa "); REAL xa=read real;
print("enigu Ya "); REAL ya=read real;
print("enigu Xb "); REAL xb=read real;
print("enigu Yb "); REAL yb=read real;
print("enigu Xc "); REAL xc=read real;
print("enigu Yc "); REAL yc=read real;
REAL a=sqrt((xa-xb)**2+(ya-yb)**2);
REAL b=sqrt((xb-xc)**2+(yb-yc)**2);
REAL c=sqrt((xa-xc)**2+(ya-yc)**2);
REAL p=(a+b+c)/2;
REAL s=sqrt(p*(p-a)*(p-b)*(p-c));
print(("areo de triangulo",new line));
print(s)
END
Стучи в агент.
⇢