var s:string; i,n:integer;
Begin
read(s);
for i := 1 to length(s) do begin
if s[i]="(" then n=n+1;
if s[i]=")" then n=n-1;
if n<0 then begin
Write("нет баланса");
halt;
end;
Write("есть баланс");
End
Program sh;
var j:integer;
massiv:array [1..1000] of integer;
begin;
begin;
randomize;
for j:=1 to 1000 do
massiv[j]:=random(1000);
end;
for j:=1 to 1000 do
begin;
if (massiv[j] mod 1=0) then
if (massiv[j]>0) and (massiv[j] mod massiv[j]=0) then
write (massiv[j]:5);
end;
end.
Я не очень понял запрос, в итоге эта программа выводит все натуральные числа созданные рандомом в районе от 0 до 1000.
Логическая структура любого алгоритма может быть представлена, как комбинация трех базовых структур.
1. следование или линейная структура;
2. ветвление или разветвляющаяся структура;
3. цикл или циклическая структура.
В алгоритме Евклида поиска НОД, все три они есть. Хотя на вашем рисунке и нет блока цикла, но он выражен неявно, с помощью оператора безусловного перехода (в Паскале, например, это оператор - goto метка).
Правило нахождения НОД двух натуральных чисел A и B у вас написано в условии задания. НОД(A,B)= НОД(min(A,B), |A-B|). Это "звучит" так: НОД двух натуральных чисел A и B равен НОДу двух других натуральных чисел. Первое число - разность (большего и меньшего), второе - меньшее из начальных чисел: НОД(A,B) = НОД(B,A-B) если A>B (или НОД(A,B) = НОД(A,B-A) если A<B)
Знаю ответ только на первое.
Анимацию можно использовать на обьектах: текст, изображение, видео.
Все, что сам знаю.
Word; Real; Boolean; Boolean; ShortInt; ShortInt; Real; Real