Цикл. блок-схема. вычислите и выведите на экран количество шаров в пирамиде из n слоев и количeство шаров в каждом слое, если количество шаров в каждом слое равно квадрату порядкового номера слоя.
Var A:array[1..10000] of integer; i,NOD,NOK,k,N:integer; Begin Write('N = ');ReadLn(N); Write('Введите числа (',N,' шт.): '); For i:= 1 to N do Read(A[i]); {Поиск НОК} NOK:=abs(A[1]); For i:= 2 to N do if abs(A[i])<NOK then NOK:=abs(A[i]); if NOK = 0 then NOK:=1; Repeat k:=0; For i:= 1 to N do if A[i] mod NOK = 0 then k:=k+1; NOK:=NOK-1; Until k=N; WriteLn('NOK = ',NOK+1); {Поиск НОД} NOD:=A[1]; For i:= 2 to N do if abs(A[i])>NOD then NOD:=A[i]; Repeat k:=0; For i:= 1 to N do if NOD mod A[i] = 0 then k:=k+1; NOD:=NOD+1; Until k=N; WriteLn('NOD = ',NOD-1) End.
Var S:string; i,k:integer; Begin Write('Введите строку: ');ReadLn(S); LowerCase(S); k:=0; For i:= 1 to S.Length-2 do if S[i] = 'д' then if S[i+1] = 'о' then if S[i+2] = 'м' then k:=k+1; WriteLn(k) End.
Var S:string; i,d1,d2,d3:integer; Begin WriteLn('Введите строку:'); ReadLn(S); i:=0; Repeat i+=1 Until S[i] = ' '; d1:=i-1; Repeat i+=1 Until S[i] = ' '; d2:=i-d1-2; Repeat i+=1 Until i = S.Length; d3:=i-d2-d1-2; if d3 < d1 then d1:=d3; if d2 < d1 then d1:=d2; WriteLn(d1) End.
считаем кол-во в каждом слою и выводим на экран
считаем кол-во всего и выводим на экран