+графическая или изобразительная
+звуковая
<span>+числовая </span>
<span>+видеоинформация </span>
1. Площадь ромба можно определить по формуле<u>Microsoft qBASIC 1.0</u>DIM a AS DOUBLE, alpha AS DOUBLE, k AS DOUBLE, s AS DOUBLE
CLS
INPUT "a, alpha="; a, alpha
k = ATN(1) / 45
PRINT "S="; a ^ 2 * SIN(alpha * k)
2. Договоримся, что a≤b и c≤d. Если после ввода это не так, то меняем местами значения a,b и/или c,d.Условие, при котором первый прямоугольник поместится во второй выглядит как a<c ∧ b<d
DIM a AS INTEGER, b AS INTEGER, c AS INTEGER, d AS INTEGER, t AS INTEGER
CLS
INPUT "a,b,c,d"; a, b, c, d
IF a > b THEN
t = a: a = b: b = t
END IF
IF c > d THEN
t = c: c = d: d = t
END IF
IF a < c AND b < d THEN
PRINT "Входит"
ELSE
PRINT "Не входит"
END IF
Var a,k:integer;
begin
write('a (>0) = ');
readln(a);
k:=0;
while a>0 do
begin
k:=k+1;
a:=a div 10;
end;
writeln('k = ',k);
end.
Пример:
<span>a (>0) = 180653
k = 6</span>