Я высажусь на Марсе
якя выкысакажукусь нака Макарсеке (после каждой гласной буква"к" и та гласная)
Ты где учишься??????????????????????????????????????????
Алфавит = 10 цифр+26 маленьких букв+26 больших букв = 62символа.
ближайщая степень двойки 64 = 2^6 т.е. 6 бит на символ
6*10 = 60 бит весит пароль
870*8-60 = 6 900 бит = 862.5 байт
862 байт
Var
mas:array [1..20] of integer;
i,sum,A:integer;
begin
for i:=1 to 20 do
read(mas[i]);
for i:=1 to 20 do
If odd(mas[i]) then
sum:=sum+mas[i];
writeln('Сумма элементов имеющих нечетное значение = ',sum);
writeln('Введите А');
readln(A);
writeln('Индексы элементов, значение которых больше,чем А:');
for i:=1 to 20 do begin
if mas[i]>A then
write(i,' ');
end;
end.
Var
a, h:integer;
Begin
write('Основание параллелограмма: ');
readln(a);
write('Высота параллелограмма: ');
readln(h);
writeln('Площадь параллелограмма: ', a*h);
end.