Program ddg2;
var
s: String[3];
begin
repeat
WriteLn('Хочу домой');
ReadLn(s);
until s = 'иди';
end.
4096 символов заняли 2 кб, один символ занимает 2 байта. Посчитай теперь мощность.
<span>Вот тебе тут подсказывают, ты хоть чему-то при этом учишься? Или считаешь, что ты ходишь в школу, чтобы тебя там мучали, а деньги зарабатывать ты и так уже можешь? Да, есть такая работа, только ты не всегда будешь молодой, станет тебе 35, никто тебя покупать уже не будет. Может, дальнобойщик какой рублей за 300 возьмёт и всё. Лучше всё-таки учись.</span>
Оба опыта одинаковы между собой. Но второй опят более треднее определить, поэтому он будет более неопределёным.
Const
m=10;
n=8;
var
a:array[1..m,1..n] of integer;
i,j:integer;
begin
Randomize;
Writeln('Исходный массив');
for i:=1 to m do begin
for j:=1 to n do begin
a[i,j]:=Random(20)+10;
Write(a[i,j]:3)
end;
Writeln
end;
Writeln('Результирующий массив');
for i:=1 to m do begin
for j:=1 to n do begin
if a[i,j] mod 5=0 then a[i,j]:=2*a[i,j]
else a[i,j]:=3*a[i,j];
Write(a[i,j]:3)
end;
Writeln
end
end.
Пример решения
Исходный массив
12 10 12 20 17 17 28 23
22 27 28 14 23 10 26 15
29 13 10 29 26 11 17 24
10 14 17 24 16 12 22 28
17 25 26 24 25 22 17 23
18 11 20 12 28 29 25 13
26 11 28 19 17 27 22 10
22 17 20 12 10 13 17 19
14 10 27 28 13 11 20 16
26 16 21 24 20 15 26 10
Результирующий массив
36 20 36 40 51 51 84 69
66 81 84 42 69 20 78 30
87 39 20 87 78 33 51 72
20 42 51 72 48 36 66 84
51 50 78 72 50 66 51 69
54 33 40 36 84 87 50 39
78 33 84 57 51 81 66 20
66 51 40 36 20 39 51 57
42 20 81 84 39 33 40 48
78 48 63 72 40 30 78 20
var
inStr, outStr : string;
i : integer;
begin
outStr := '';
ReadLn(inStr);
for i := 1 to Length(inStr) do
<span> if </span>inStr[i] <> '+' then
outStr := outStr + inStr[i] + inStr[i];
WriteLn(outStr);
end.