Шифр Цезаря: это вместо буквы нужно взять следующую за ней, например, слово яблоко будет так: авмплп.
72х30=2160 м^2
2)2160:4х3=540 м^2
3)2160-540:2=810 м^^2
Var
A: array [1..10] of integer;
min,i:integer;
begin
i:=1
while i<11 do
begin
readln(A[i]);
i:=i+1;
end;
i:=1;
n:=A[1];
repeat
if min>A[i] then
min:=A[i]
i:=i+1;
until I=10;
A[10]:=min;
end
Int i = ( ((x==y)||(y==z)||(z==x))&&( (x % 2 == 0)||(y % 2 == 0) )? 1 : 0 );
Program Task;
Const a = 5;
b = 10;
Var i, c, d: Integer;
Begin
If a > b Then
WriteLn('Ошибка')
Else
Begin
For i := a To b Do
If i > 0 Then
Begin
c := c + i;
d := d + 1;
End;
If d > 0 Then
WriteLn('Результат: ', (c / d):5:2)
Else
WriteLn('Таких чисел нет');
End;
<span>End.</span>