это очень Задача: На бесконечном поле имеется вертикальная стена. Длина стены неизвестна. Робот находится в одной из клеток, расположенной непосредственно слева от стены. Hапишите для Робота алгоритм, закрашивающий все клетки, расположенные правее вертикальной стены и прилегающиек ней. Робот должен закрасить тольно клетки, удовлетворяющие данному условию. Конечное положение робота может быть произвольным
Внимание! Если программа не работает, обновите версию!
№1
begin
var (a,b):=ReadInteger2('Введите a,b:');
if a.IsEven then a-=1;
Range(a,b,-2).Println
end.
Пример
Введите a,b: 18 4
17 15 13 11 9 7 5
№2
begin
var (a,b):=ReadInteger2('Введите a,b:');
Range(b,a).Aggregate(BigInteger(1),(i,j)->i*j).Println
end.
Пример
Введите a,b: 50 7
42241796113490802838350844675089956728302279956889600000000000
№3
begin
var n:=ReadInteger('n=');
for var i:=1 to n do
(1.To(i)).Println('')
end.
Пример
n= 7
1
12
123
1234
12345
123456
1234567
Начало
|
a , b , c
|
d = b * b - 4 * a * c
|
- D > = 0 +
| |
ДКН X1 =(-b + SQR(D)) / (2*a)
| |
| X2 =(-b - SQR(D)) / (2*a)
| |
| X1 , X2
| |
| |
| |
| Конец |
Вот и все
Программа
PRINT “Количество корней квадратного уравнения“
INPUT “Ввести a, b, c: “, a, b, c
d = b * b – 4 * a * c
IF d >= 0 THEN
IF d > 0 THEN PRINT “2 разных корня“ ELSE PRINT “2 одинаковых корня“
ELSE PRINT “Действительных корней нет“
словесная программа
Начало
Ввод a,b,c
d = b * b - 4 * a * c
Нет D 》=0 Да
X1 =(-b + SQR(D)) / (2*a)
X2 =(-b - SQR(D)) / (2*a)
X1 , X2
ДКН
Конец
Объяснение:
это правильный ответ