CONST n = 20
DIM a(1 TO n) AS INTEGER, b(1 TO n) AS INTEGER
DIM c AS INTEGER, i AS INTEGER, j AS INTEGER
CLS
INPUT "Введите C: ", c
RANDOMIZE TIMER
PRINT "Массив А"
j = 0
FOR i = 1 TO n
a(i) = INT(3 * c * RND) + 1
PRINT a(i);
IF a(i) > c THEN
j = j + 1: b(j) = a(i)
END IF
NEXT i
PRINT
PRINT "Массив B"
FOR i = 1 TO j
PRINT b(i);
NEXT i
<em><u>Тестовое решение:</u></em>
Введите C: 4
Массив А
7 2 6 11 10 9 2 1 7 4 6 1 8 5 12 4 11 2 6 2
Массив B
7 6 11 10 9 7 6 8 5 12 11 6
БЛОК-СХЕМА ВО ВЛОЖЕНИИ
var
a,b,c,min:real;
begin
readln(a,b,c);
if (a*b*c)<(a+b+c)then
min:=a*b*c
else
min:=a+b+c;
writeln(min);
end.
var
num: integer;
begin
ReadLn(num);
If num = 7 Then WriteLn("Воскресенье");
end;
Я = П + С
<span>2А = 3П </span>
<span>Я + С = А =>2(Я+С) = 3П </span>
<span>П = Я - С =>2(Я+С) = 3(Я-С) </span>
<span>2Я+2С = 3Я - 3С </span>
<span>5С=Я </span>
<span>Ответ: 5 слив</span>
1.
1) (x>-3) and (x<=10)
2) x<>0, y<>0
3) (x>=-10) and (x<0)
4) a mod 3<>0
2.
program koren;
var c, b, a:integer;
begin
write ('Введите 3 числа: ');
read (a);
read (b);
read (c);
if (a<b) and (a<c) then writeln ('наименьшее число - ',a)
else if (b<a) and (b<c) then writeln ('наименьшее число - ',b)
else writeln ('наименьшее число - ',c);
end.