Программирование на языке Python, задача Гамбсовская мебель Захватило почему-то дух у Ипполита Матвеевича. Он отчетливо вспомнил гостиную в своем особняке, симметрично расставленную ореховую мебель с гнутыми ножками, начищенный восковой пол, старинный коричневый рояль и овальные черные рамочки с дагерротипами сановных родственников на стенах. И дюжину стульев, обитых английским ситцем в мелкий цветочек.
Однако не вся мебель одинаково дорога Ипполиту Матвеевичу, а только та, у которой больше 4 общих букв с заветным словом.
Напишите программу, которая из строки фраз, записанных через дефис, окруженный пробелами, выберет только подходящие.
1) var s: string; p, a: integer; begin read(s); p := strtoint(s[1]) * strtoint(s[2]); if (p.ToString.Length = 2) then writeln('a)Да') else writeln('a)Нет'); write('Введите a:'); read(a); if (a < (strtoint(s[1]) + strtoint(s[2]))) then writeln('б)Да') else writeln('б)Нет'); if ((strtoint(s[1]) + strtoint(s[2])) mod 3 = 0) then writeln('в)Да') else writeln('в)Нет'); end. 2) var s:string; begin read(s); if(s.Length=6)then if (strtoint(s[1])+strtoint(s[2])+strtoint(s[3])= strtoint(s[4])+strtoint(s[5])+strtoint(s[6]))then write('Да') else write('Нет'); end.
С начало узнаем сколько занимает объем информации одна строка. Умножим количество страниц на количество строк в одной страницы чтобы найти сколько всего строк. 40*4=160 строк.Разделим объем информации на количество строк и узнаем сколько занимает одна строка объем информации. 7200/160=45 байт. переведем их в биты 45*8=360 бит. 64 символа можно закодировать 6 битами т.е. 2 в 6 степени. 1 символ 6 бит. Разделим объем информации одной странницы на объем информации одного символа и получим сколько всего символов в одной строке. 360/6=60 символов. ответ: в одной строке 60 символов.
var s: string;
p, a: integer;
begin
read(s);
p := strtoint(s[1]) * strtoint(s[2]);
if (p.ToString.Length = 2) then writeln('a)Да')
else writeln('a)Нет');
write('Введите a:');
read(a);
if (a < (strtoint(s[1]) + strtoint(s[2]))) then writeln('б)Да')
else writeln('б)Нет');
if ((strtoint(s[1]) + strtoint(s[2])) mod 3 = 0) then writeln('в)Да')
else writeln('в)Нет');
end.
2)
var s:string;
begin
read(s);
if(s.Length=6)then if (strtoint(s[1])+strtoint(s[2])+strtoint(s[3])= strtoint(s[4])+strtoint(s[5])+strtoint(s[6]))then
write('Да')
else write('Нет');
end.