var a,b,c,max: integer;
begin
readln(a,b,c);
if a>b then max:=a else max:=b;
if c>max then max:=c;
writeln('max = ',max);
end.
Пример:
12 45 31
max = 45
{
правильная программа, кол-во элементов вводится с клавиатуры
}
Program Summa;
uses crt;
type a1= array of integer;
var a: a1;
m,s,n: integer;
procedure Input;
const p=1;
const q=20;
var i: integer;
begin
randomize;
begin
for i:=0 to n-1 do a[i]:=random(q-p+1)+p;
write('a[',i,']=');
readln(a[i]);
end;
end;
procedure Print;
var i: integer;
begin
write('Массив целых чисел А: ');
for i:=0 to n-1 do write(' ',a[i]);
writeln;
writeln;
end;
procedure Sum( m: integer);
var i: integer;
begin
s:=0;
for i:=0 to m-1 do s:=s+a[i];
end;
Begin
ClrScr;
write('введите кол-во элементов в массиве: ');
readln(n);
SetLength(a, n);
Input;
ClrScr;
Print;
write('Сколько элементов суммировать: ');
readln(m);
Sum(m);
writeln;
writeln('Сумма ',m,' элементов масссива равна: ', s);
Sum(n);
writeln;
writeln('Сумма всех ',n,' элементов массива равна: ', s);
Writeln ('Среднее арифмитическое всех элементов равно ', s/n);
Readkey;
end.
Var
s,g:string;
sum:integer;
begin
g:='бвгджзйклмнпрстфхцчшщБВГДЖЗЙКЛМНПРСТФХЦЧШЩ';
read(s);
sum:=0;
for var i:=1 to length(s) do
if (pos(s[i],g)>0) then sum:= sum+i;
writeln(sum);
end.
<span>//ABC Pascal
</span>
Операция ИЛИ ( она же or ) является логическим типом
Первый поразрядно переводим в десятичную
F * 16^2 + 4 * 16^1 + 1 * 16^0 = 3905
Второй можно перевести десятичную
5 * 15^1 + 13 * 15^0 = 88
Потом в восьмеричную
88 / 8 = 11
88 - 88 = 0
11 - 8 = 3
11 / 8 = <span>1</span>
Будет 130
Третье аналогично
1 * 7^2 + 2 * 7^1 + 5 * 7^0 = 68
Переводим в двоичную
64 + 4 = 100 0100
Четвёртое просто переводим в двоичную, потом из двоичной в шестнадцатеричную
273 = 010 111 011
Разбиваем двоичное число на секции по 4 с начала и переводим их в 16 систему счисления
1011 1011 = BB