Program E02;
uses crt;
var S: string;
i,n,k: integer;
begin
clrscr;
writeln('Введите строчку: ');
readln(S);
K:=0;
for i:=1 to length(S) do
if S[i] = '9' then
K:=i;
if K <> 0 then
writeln('Yes 9!')
else
writeln('No 9!');
if K = length(S) then
writeln('Да есть 9 в конце строки!')
else
writeln('Нет 9 в конце строки!');
<span>end.</span>
Const
m=10;
n=6;
var
a:array[1..10,1..6] of integer;
i,j:integer;
begin
Writeln('Элементы массива');
for i:=1 to m do
begin
for j:=1 to n do
begin
a[i,j]:=sqr(i)+sqr(j);
Write(a[i,j]:4)
end;
Writeln
end
end.
<em><u>Тестовое решение:</u></em>
Элементы массива
2 5 10 17 26 37
5 8 13 20 29 40
10 13 18 25 34 45
17 20 25 32 41 52
26 29 34 41 50 61
37 40 45 52 61 72
50 53 58 65 74 85
65 68 73 80 89 100
82 85 90 97 106 117
101 104 109 116 125 136
const
n = 10;
var
a: array[1..n] of integer;
i, t: integer;
begin
Randomize;
Writeln('Элементы массива');
for i := 1 to n do
begin
a[i] := Random(50);
Write(a[i]:3);
end;
Writeln;
t:=a[n];
for i:=n-1 downto 1 do a[i+1]:=a[i];
a[1]:=t;
Writeln('Результирующий массив');
for i := 1 to n do Write(a[i]:3);
Writeln
end.
<em><u>Тестовое решение:</u></em>
Элементы массива
13 43 26 31 1 21 12 0 33 25
Результирующий массив
25 13 43 26 31 1 21 12 0 33
Минимум 2(так как вы уже увилели двоих,максимум-не ограничено.(так как номера не обязательно порядковые)
32 Кбайт = 32*1024*8 бит
t1 = 32*1024*8 / 2048 = 32*4 = 128 c
V2 = 512*128 бит = 512*128 / (8*1024) Кбайт = 8 Кбайт
