Быквы и цыфры
Знаки операций
Символы
Ограничители и разделители
Специальные символы
Даны 2 числа, если первое больше второго, тогда записать в переменную С значение первого числа, если нет, второго числа и вывести его
Начало
А>B?
---ДА: C:=A
---НЕТ: С:=В
Вывести переменную С
var a,b: array of integer;
i,n,lo,ss: integer;
begin
lo:=0;
ss:=1;
write('Введите количество элементов массива');
readln(n);
setlength(a,n);
setlength(b,n);
for i:=0 to n-1 do
begin
write('Ввод данных для a[',i+1,']=');
readln(a[i]);
if a[i]<0 then inc(lo) else ss:=ss*a[i];
end;
writeln('Данные массива A:');
for i:=0 to n-1 do writeln('a[',i+1,'] = ',a[i]);
writeln;
writeln('Данные массива B:');
for i:=0 to n-1 do
begin
if odd(i+1) then b[i]:=lo else b[i]:=ss;
writeln('b[',i+1,'] = ',b[i]);
end;
end.
ужно каждой букве русского алфавита задать номер от 0 до 31. Максимальный номер (31) можно представить как двоичное число 31 =11111. Так как номеров больших 31 нет, то для кодирования русских букв достаточно пятизначного двоичного числа. Дальше необходимо разбить цепочку - шифр на группы из пяти знаков справа налево.
01111 = 15 - П
10011 = 19 - У
11000 = 24 - Ш
10100 = 10 - К
01000 = 8 - И
01101 = 13 - Н.
Var d : Real;
Begin
Readln(d);
Writeln('Длина ограждения: ',d+3.14159265*(d/2));
Writeln('Площадь: ',3.14159265*sqr(d/2)/2);
end.