3. Составить блок-схему решения задачи. а) Имеется участок, имеющий форму прямоугольника со сторонами А метров и В метров. Сколько метров веревки необходимо взять, чтобы обвязать участок по периметру 1 раз? Вычислите по блок-схеме, если А=4, В=2.
б) Саша написал Ире смс с признанием в любви. Так как смс оказалось слишком большим, оно заняло несколько страниц. Сколько целых страниц получилось, если одна страница содержит m символов, а смс Саши содержит k символов?

Решение: Из списка видно, что используются только символы: "А", "О", "У". Пусть "А"=0, "О"=1, "У"=2.

Список после замены станет таким:

Видно, что это числа идущие по порядку от нуля в троичной системе. В десятичной системе счисления список бы был таким: 0, 1 , 2, 3

Нам нужно найти, какое число будет стоять на 240 месте. Т.к. список чисел начинается с нуля, следовательно, нам нужно перевести число 239 в троичную систему счисления:

239 | 3     
21      79 | 3    
  29    6     26 | 3   
  27    19   24    8  | 3
   2     18     2    6    2 
            1          2

Перепишем полученное число: 222123. Переведем обратно в символы: УУУОУ.

program noname;
uses crt;
var
a:array[1..1000,1..1000] of integer;
i,j,min,n,m,l:integer;
begin
clrscr;
write('n='); readln(n);
write('m='); readln(m);
for i:=1 to n do
for j:=1 to m do begin
write('a[',i,',',j,']=');
readln(a[i,j]);
end;
for i:=1 to n do begin writeln;
for j:=1 to m do
write(a[i,j],' ');
end;
writeln;

for i:=1 to n do begin
min:=0;
for j:=1 to m do
if min>a[i,j] then begin min:=a[i,j]; l:=j; end;
if min<>0 then
writeln ('v ',i,' stroke indexy poslednego otricatelnogo chisla = ',i,',',l)
else writeln ('v ',i,' stroke otricatelnyh chisel net');
end;
readkey;
end.