Program gt;
label 1;
var a:array[1..30]of integer;
i,min:integer;
begin
randomize;
min:=200;
1:
for i:=1 to 30 do
begin
a[i]:=random(101);
if(a[i]<min)and(a[i]>=20)then min:=a[i];
end;
if(min<>200)then begin
for i:=1 to 30 do
write(a[i],' ');
writeln;
writeln(min);
exit;
end;
if(min=200)then goto 1;
end.
Var a,b,c,s,x: integer;
begin
write('x = '); readln(x);
<span> а:=х div 100;
</span><span> b:=x mod 100 div 10;
</span><span> c:=x mod 10;
</span><span> s:=a+b+c;
</span> writeln(s);
end.
При вводе x = 248 будет напечатано 14, при вводе x = 789 будет напечатано 24
===== PascalABC.NET =====
begin
var k := ReadInteger; // ввод k
if k > 2 then // анализ аномалии
begin
var (x1, x2, i) := (1, 1, 2);
var x: integer;
while i < k do
begin
x := x1 + x2;
x1 := x2;
x2 := x;
i += 1
end;
Print(x)
end
else
Print('Ошибка')
end.
4561,81,53,1,731,91это то что надо
9611946-если с пробелами
10485760-если без пробелов