// 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.
<em><u>Тестовое решение:</u></em>
Введи 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.
<u><em>Тестовое решение:</em></u>
Введи натуральное число 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.
<u><em>Тестовое решение:</em></u>
Введи натуральное число (1-46): 13
Число Фибоначчи равно 233
Дано
N-128
<u>K - 20
</u>Найти i -?
I - ?
Решение:
Находим информационный вес символа по формуле N=2^i
i=7 бит
Теперь объем информации по формуле:
I=K*i
20*7=140 бит
1)
var a,b,c,d:real;
begin
writeln('Введите 3 числа');
readln(a,b,c);
d := a + b + c;
writeln('сумма чисел равна',d);
end.
ну или
var a,b,c,d:real;
begin
writeln('Введите первое число');
readln(a);
writeln('Введите второе число');
readln(b);
writeln('Введите третее число');
readln(c);
d := a + b + c;
writeln('сумма чисел равна',d);
end.
2)
var a,b,c,d:real;
begin
writeln('Введите первое число');
readln(a);
writeln('Введите второе число');
readln(b);
writeln('Введите третее число');
readln(c);
d := a * b * c;
writeln('произведение чисел равна',d);
end.
3)
var a,b,c:real;
begin
writeln('Введите первое число');
readln(a);
writeln('Введите второе число');
readln(b);
c := a : b;
writeln('деление двух чисел равна',c);
end.
В третем могу ошибится
var sum, i, s: integer; //обыявляем необходимые переменные
//sum - сумма, i - кол-во слогаемых, s - само слогаемое
begin //начало
sum := 0; i := 1; s := 5; //первое слогаемое = 5
while (sum < 324) do //пока сумма меньше 324
begin
sum := sum + s; //к сумме прибавляем слагаемое
s := s + 4; //увеличиваем слогаемое
i := i + 1; //увеличиваем кол-во слогаемых
end;
writeln ('Слогаемых: '); // выводим кол-во слогаемых
write (i);
end. //конец
1).1 символ - 1 байт.
В 1 кбайте - 1024 байт или 2^10 байт.
Переведем 22,5кб в байты: 22,5 * 2^10 = 23 040 или же 22,5 * 1024 = 23 040.
Теперь 23 040/180 = 128 .
2). Вторую задачу не знаю как решить, либо вы условие не правильно написали. Там вроде ещё должно быть написанно сколько 1 символ занимает бит.