Var x,y,i,s:integer;
begin
s:=1;
writeln('введите числа x и y');
write('x='); readln(x);
write('y='); readln(y);
for i:=x to y do s:=i*s;
writeln('произведение чисел от ',x,' до ',y,' =',s);
end.
Пример работы:
введите числа x и y
x=2
y=5
произведение чисел от 2 до 5 =120
ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Матем ИЗ "...\Отделы\Числа\";
ПЕР
a: РЯД 10 ИЗ ЦЕЛ;
сч: ЦЕЛ;
произведение: ЦЕЛ;
УКАЗ
ОТ сч := 0 ДО РАЗМЕР(a) - 1 ВЫП
a[сч] := УЗК(ВШИРЦЕЛ(Матем.случ() * 9)) + 1
КОН;
произведение := 1;
ОТ сч := 0 ДО РАЗМЕР(a) - 1 ВЫП
ЕСЛИ НЕ ЧЕТ(a[сч]) ТО
произведение := произведение * a[сч]
КОН
КОН
КОН Задание.
Для обозначения шагов алгоритма в блок-схемах используются геометрические фигуры: овал (начало и конец), параллелограмм (ввод/вывод), ромб (принятие решения) и прямоугольник (выполнение действия). Стрелки, связывающие эти фигуры, задают порядок выполнения соответствующих шагов.
<em>// PascalABC.NET 3.2, сборка 1437 от 03.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:=ReadlnString;
if s<>s.MatchValue('[01]+') then Write('не ');
Writeln('двоичное число')
end.
<u>Пример</u>
010101111011
двоичное число
begin
var s:=ReadlnString;
if s<>s.MatchValue('[\+-]?\d+.\d+') then Write('не ');
Writeln('дробное число')
end.
<u>Пример</u>
12.54
дробное число
begin
var s:=ReadlnString;
s.Matches('\s([\+-]?\d{2})\s').Select(t->Trim(t.Value)).Println;
end.
<u>Пример</u>
123.3 15 -11.7 +21 23.2 51 9 182
15 +21 51