Ответ:
Б А Г В
Объяснение:
Б А Г В
Сложнее всего найти связку слов.
Программы проверены в интерпретаторе ByWater Basic Interpeter/Shell version 2.20 patch level2 for linux
Задание 1:
10 rem Площадь круга и квадрата
20 input "Введите площадь круга"; SR
30 input "Введите площадь квадрата"; SK
40 a=sqr(SK)
50 c=sqr(a^2 * 2)
60 pi=3.1415926
70 r=sqr(SR/pi)
80 if a>=r then print "Круг поместится в квадрат":goto 110
90 if r>=c then print "Квадрат поместится в круг":goto 110
100 print "Фигуры не поместятся друг в друга"
110 print "---------------------------------":print
120 end
Задание 2:
10 rem Три числа
20 print "Введите три числа"
30 input a, b, c
35 if a = b and b = c then print "Числа равны между собой" : goto 100
40 if a > b then swap a, b
50 if b > c then swap b, c
60 if a > b then swap a, b
70 if a > c then swap a, c
80 print "Минимум ", a
90 print "Максимум ", c
100 end
Задание 3:
10 rem Первая цифра - чётная?
20 input "Введите двузначное число ", a
30 if a < 10 or a > 99 then 20
33 me$ = "Начинается с чётной"
36 mo$ = "Начинается с нечётной"
40 if int(a / 10) mod 2 = 0 then print me$ else print mo$
50 end
Задание 4:
10 rem Треугольник
20 input "Введите длину стороны а ", a
30 input "Введите длину стороны b ", b
40 input "Введите длину стороны c ", c
45 print "Составить такой треугольник ";
50 if a+b>c and a+c>b and b+c>a then 70
60 print "нельзя"
65 goto 90
70 print "можно"
83 if a=b and b = c then print "Треугольник равносторонний" : goto 90
86 if a=b or a=c or b=c then print "Треугольник равнобедренный"
90 end
Var a:array[1..8, 1..8] of integer;
max, i, j:integer;
begin
randomize;
max:=0;
for i:=1 to 8 do
for j:=1 to 8 do
a[i,j]:=random(200);
for i:=1 to 8 do
for j:=1 to 8 do
if i+j=9 then
begin
if a[i, j]>max then max:=a[i, j];
end;
for i:=1 to 8 do
begin
for j:=1 to 8 do
write(a[i, j]:5);
writeln;
end;
writeln('Максимальный элемент=', max);
<span> end.</span>
Program Mysmka;
uses crt;
const n=15;
var
a:array[1..n] of real;
i:integer;
z,sum40:real;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
writeln();
write('Введите загадочное число Z ');
readln(z);
writeln('Элементы массива:');
{создание и вывод массива}
sum40:=0;
for i:=1 to n do
begin
a[i]:=i*z;
write (a[i]:7:2);
if a[i]>40 then sum40:=sum40+a[i];
end;
writeln();
writeln('Сумма чисел, больших 40: ',sum40:7:2);
end.
111(x)=21(10)
Пусть х - основание с.с.
1*x²+1*x+1=21
(Т.е 111 - 1*10²+1*10+1 - это когда в десятичной. А в с.с. с основанием х - это см. уравнение выше)
x²+x-20=0
D=1-4*(-20)=81
x=(-1+9)/2=4
Ответ 4
