var
i,z,y,x: integer; // объявление переменных
begin // начало программы
writeln('Введите числа: '); // Вывод сообщения
readln(x,y); // Ввод чисел х и у с клавиатуры
while i <> y do // Повторять цикл пока i не будет равно y
begin // Вход в цикл
z:=z+x; // z = z + x (при первом шаге получается 0 = 0 + х)
i:=i+1; // Увеличиваем счетчик цикла на 1
end; // Выход из цикла
write(z); // Вывод z (произведение х и у)
end. // Конец программы
=ЕСЛИ(B1<-1;-2*B1+3+SIN(B1);ЕСЛИ(B1<0;ABS(B1);B1*LN(x+1)))
<u>PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
SeqGen(6,i->(i+10)**3).Println
end.
<u>Результат</u>
1000 1331 1728 2197 2744 3375
Количество лепестков количество листьев серединка ____________________________________________________________________
признаки признаки
4 лепестка,6,7. 3 лепестка,4,6. красная,фиолетовая,
синяя,жёлтая
Вот ниже прикрепил, посмотри и картинка и скрипт