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 a,b,c:integer;
begin
Write('Введите a');
Read(a);
Write('Введите b');
Read(b);
c:=a+b;
Write(c);
end.