1) Вот первая задачка:
uses crt;
var a, b, c : real;
begin
ClrScr;
Write(' a = '); ReadLn(a);
Write(' b = '); ReadLn(b);
c:=sqrt(a*a+ b*b);
WriteLn(' c = ', C:4:2);
ReadLn;
end.
2) А вот задачка 2
uses crt;
var s, s0 : real;
i: integer;
begin
ClrScr;
S0:=3;
i:=1;
While S0<20 do
begin
i:=i+1;
S:=S0*(1+0.05);
S0:=S+S0;
end;
WriteLn(' Day = ', i);
ReadLn;
end.
3) А вот и третья задачка подоспела....
uses Crt;
const n=15;
type Mas = array [1..n] of real;
var A: Mas;
i: integer;
Sum: real;
begin
ClrScr;
Sum:=0;
for i:=1 to n do
begin
Write(' A[',i, '] = ' ) ; ReadLn (A[i]);
Sum:=Sum+A[i];
end;
WriteLn (' Massiv: ');
for i:=1 to n do
Write (A[i]:6:2,' ');
WriteLn; WriteLn;
WriteLn ('Sum = ', Sum:6:2);
ReadLn;
end.
Зашифрованное слово - криптоанализ
При шифровании не использовался рисунок справа. Это так называемый масонский шифр. Чтобы расшифровать, нужно символ как бы подставить в рисунок. Например, 1 символ показывает, что слева, сверху и снизу от него есть перегородка. В сетке нам подходит две буквы - Й, К. Точка указывает, что буква нужна вторая, а именно К. Возьмем 5 символ. В сетку он не подходит, а подходит в рисунок посередине, перекрестие, и именно вверх. Это буквы С, Т. Точка указывает на букву Т. Отсутствие точки означает, что берется первая буква
Var s1,s2 : String;
i,n : Byte;
Function Min(a,b : Byte) : Byte;
Begin
If a<b then Min:=a else Min:=b;
end;
Begin
Readln(s1);
Readln(s2);
n:=0;
For i:=1 to Min(Length(s1),Length(s2)) do If s1[i]=s2[i] then Inc(n);
Writeln(n);
end.
Равно ровно восемь бит (8 bit , 8 бит)
