Валя, Вася,Вова,вода,волк,Наташа,панамка ананас
["bbaabbaabbaa", "baabbaabbaab", "aabbaabbaabb", "abbaabbaabba"]
4 уникальных строки считая оригинал
#Программа на Ruby22
s = "abbaabbaabba"
a = []
for i in 0..s.size
s = s[1..-1] + s[0..0]
a << s if not a.include?(s)
end
p a
p a.size
//Pascal ABC.NET v3.1 сборка 1172
var
ma: array of array of integer;
n, m, i, j, max, maxi, maxj: integer;
f: text;
s, st: string;
begin
randomize;
readln(n);
readln(m);
max := -1;
setlength(ma, n);
for i := 0 to n - 1 do
setlength(ma[i], m);
writeln('Matrix:');
for i := 0 to n - 1 do
begin
writeln;
for j := 0 to m - 1 do
begin
ma[i, j] := random(101);
write(ma[i, j]:4);
if max < ma[i, j] then
begin
max := ma[i, j];
maxi := i;
maxj := j;
end;
end;
end;
assign(f, 'text.txt');
rewrite(f);
for i := 0 to m - 1 do
write(f, ma[maxi, i]:4);
writeln(f, ' ');
for i := 0 to n - 1 do
write(f, ma[i, maxj]:4);
close(f);
writeln;
writeln('File:');
assign(f, 'text.txt');
reset(f);
while not Eof(f) do
begin;
readln(f, st);
s := s + st + chr(10) + chr(13);
end;
close(f);
write(s);
end.
Пример ввода:
3
4
Пример вывода:
Matrix:
30 29 3 61
64 4 99 36
45 9 85 19
File:
64 4 99 36
3 99 85
Сообщение занимает 39 страниц по 27 строк. Значит, следует найти количество строк. 39×27=1053 строки. Нужно найти количество символов, т. е. количество байт в сообщении. В каждой строке по 35 символов: 1053×35=36855 байт в сообщении. Нужно перевести в Килобайты. В 1 Кб 1024 байт, значит 36855÷1024=35 Кб и 1015 байт в остатке.
Ответ: 36855 байт в сообщении,
35 Килобайт и 1015 байт в сообщении.
Без подробностей:
1) 39×27×35=36855 (символов)- байты в сообщении
2) 36855÷1024=35 (Кб)- Килобайт и 1015 байт в сбщ.