Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
при использовании компьютерного алфавита 1 символ = 1 байт, значит
20000 символов = 20000 байт
20000 : 1024 = 19,5 кбайт
19,5 кбайт < 20 кбайт, значит текст на дискету поместиться.
var
a,b,c: real;
begin
readln(a,b,c);
writeln((a+b+c)/3);
end.
если выполнить для стандартного алфавита с ё, й итд
получится
а-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(с)
тер (не меняем)
дйнчёстер
но я думаю делалось под алфавит без "ё" и "й" возможно в нем получится "винчестер"
var n, i, k, a: integer;
begin readln(n); k : = 0; for i : = 1 to n do begin readln(a); if trunc(sqrt(a)) * trunc(sqrt(a)) = a then k : = k + 1; end; writeln(k); end.
Популярные вопросы