' 1. Даны 2 массива a и b каждый из 12 элементов.Найти R=pi*b(i)/a(max)
Function Zadanie20683579(A, B)
max = A(0)
for i = LBound(A, 1) To UBound(A, 1)
if max < A(i) then max = A(i)
next
R = 1
for i = LBound(B, 1) To UBound(B, 1)
r = r * B(i)
next
Zadanie20683579 = r / max
End Function
Function RandomArray(n, max)
ReDim A(n)
Randomize
for i = LBound(A, 1) To UBound(A, 1)
A(i) = max * Rnd
next
RandomArray = A
End Function
Msgbox Zadanie20683579(RandomArray(12, 50), RandomArray(12, 50))
Var s,i:integer;
a:array[1..100] of integer;
begin
for i:=1 to 12 do begin
readln(a[i]);
end;
s:=0;
for i:=1 to 12 do begin
s:=s+a[i];
end;
writeln(s);
end.
Четверичная система содержит в себе цифры 0,1,2,3, основание - 4, нигде особо не применяется, ну а таблицу я думаю переводом из двоичной в четверичную
Program slovo;
var A,C:string; {Описание строковой переменной}
i:integer;
begin
read(A);
write('Первоначальное слово: ',A);
C:=A; {"копирование" значения длинны строки(т. к. оно в дальнейшем быдет изменено)}
i:=length(A); {Присвоение переменной i значения длинны строки}
A[1]:=A[i]; {Присвоение первому значению значение последнего}
A[i]:=C[1]; {Присвоение последнеe значению значение первого}
write('Полученное слово: ',A);
<span>end.</span>