Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program xxx;
var i, n : integer;
s : real;
a : array [1..20] of real;
begin
writeln('введите размерность массива n=');
readln(n);
write('введите элементы массива а: ');
for i: =1 to n do
readln(a[i]);
writeln('исходный массив а: ');
writeln(a[i]);
s: =0;
if a[i] mod 2 = 0 then s: =s+a[i];
writeln('сумма четных элементов =', s);
readln
end.
program ssd;
uses crt,graph;
var d,m: integer;
clrscr;
initgraph(d,m,'');
arc(200,200,360,180,50);
line(150,200,250,200);
readkey; closegraph;
если выполнить для стандартного алфавита с ё, й итд
получится
а-1 б-2 в-3 г-4 д-5 е-6 ё-7 ж-8 з-9 и-10 й-11 к-12 л-13 м-14 н-15 о-16 п-17
р-18 с-19 т-20 у-21 ф-22 х-23 ц-24 ч-25 ш-26 щ-27 ъ-28 ы-29 ь-30 э-31 ю-32 я-33
слово компьютер
к=12 -8=4 (д)
о=16-5=11(й)
м=14+1=15(н)
п=17+8=25(ч)
ь=30-23=7(ё)
ю=32-13=19(с)
тер (не меняем)
дйнчёстер
но я думаю делалось под алфавит без "ё" и "й" возможно в нем получится "винчестер"
3*2=6128*512*6=393216ъ128+512=640640: 10=6464*6=384кб
Популярные вопросы