<span>Var
Text, Slovo, max:string;
Begin
WriteLn('Введите строку, разделенную пробелами: '); ReadLn(Tex);
Text:= Text + ' ';
max:='';
While Pos(' ',Text) <> 0 do
Begin
</span>Slovo<span>:= Copy(Text, 1, Pos(' ',Text) - 1);
Delete(Text, 1, Pos(' ',Text));
if Length(</span><span>Slovo</span><span>) > Length(max)
then max:= </span>Slovo<span>;
End;
WriteLn('Самое длинное слово: " ',max,' " его длина ',Length(max));
ReadLn;
End.</span>
Const n=10;
var a:array[1..n] of integer;
i:integer;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
begin
a[i]:=random(51);
write(a[i]:4);
end;
writeln;
for i:=1 to n div 2 do write(a[i]:4, a[n-i+1]:4);
writeln;
end.
Пример:
<span>Массив A:
12 44 36 9 1 13 10 11 37 30
12 30 44 37 36 11 9 10 1 13</span>
Язык : PascalABC. NET
program number1;
const
L =31;
var
a : array[1..L] of shortint;
k : shortint;
begin
randomize;
for i : byte := 1 to L do
a[i] := random(-10, 10);
k :=0;
for i : byte := 10 to 20 do
k := k + a[i];
writeln(k);
end.
Само объяснение очень большое. Делится им смысла не вижу. В целом все сводится к проверке числа на простоту. Причем надо это сделать с помощью быстрого алгоритма.
Следующее решение приведено на языке Python 3.4.3:
def is_prime( num ):
d = 2
while d * d <= num and num % d != 0:
d += 1
return d * d > num
N = int( input() )
if is_prime( N ):
print( 'Danger' )
else:
print( 'Safe' )
Var A:integer;
Begin
A:=5000;
While A mod 39 <> 0 do
A:=A-1;
WriteLn(A);
End.