Рассказ состоит из 5 страниц, на каждой странице - 50 строк, в каждой строке -40 символов. Мощность алфавита 256 символов. Каков объем информации в рассказе?
// PascalABC.NET 3.0, сборка 1073 var a,b,c:integer; begin Write('Введи a,b,c: '); Read(a,b,c); if (a=b) or (a=c) or (b=c) then Writeln('Есть пара одинаковых') else Writeln('Все числа различные') end.
Тестовое решение: Введи a,b,c: 6 3 -12 Все числа различные
Введи a,b,c: 5 -4 5 Есть пара одинаковых
// PascalABC.NET 3.0, сборка 1073 var n:string; a,b:char; begin Write('Введи натуральное число n: '); Readln(n); Write('Введи подряд пару разыскиваемых цифр: '); Read(a,b); if Pos(a,n)>0 then Writeln('В числе есть цифра '+a) else Writeln('В числе цифры '+a+' нет'); if Pos(b,n)>0 then Writeln('В числе есть цифра '+b) else Writeln('В числе цифры '+b+' нет') end.
Тестовое решение: Введи натуральное число n: 3141592653589793 Введи подряд пару разыскиваемых цифр: 47 В числе есть цифра 4 В числе есть цифра 7
// PascalABC.NET 3.0, сборка 1073 var i,n:integer; fiba,fibb,fib:longint; begin Write('Введи натуральное число (1-46): '); Read(n); if n<3 then Writeln('Число Фибоначчи равно 1') else begin fiba:=1; fibb:=fiba; for i:=3 to n do begin fib:=fiba+fibb; fiba:=fibb; fibb:=fib end; Writeln('Число Фибоначчи равно ',fib) end end.
Тестовое решение: Введи натуральное число (1-46): 13 Число Фибоначчи равно 233
хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз