но я думаю делалось под алфавит без "ё" и "й" возможно в нем получится "винчестер"
Ответ дал: Гость
исполняемые файлы:
test.exe = 459 кб
photo.exe = 117 кб
letter.com - 198 кб
графические файлы:
nature.jpg = 314 кб
program.bmp = 361 кб
текст. документы:
comp.doc = 238 кб
получается порядок:
test.exe
program.bmp
nature.jpg
comp.doc
letter.com
photo.exe
Ответ дал: Гость
var a,b,s: integer; begin readln(a); while a> =10 do begin b: =a mod 10; s: =s+sqr(b); a: =a div 10; end; a: =a*a; s: =s+a; writeln(s); readln; end.в s накапливаем сумму квадратов, b это остатки от деления на десять, после цикла прибавляем последнюю цифру,которая меньше десяти, предворительно возведя её в квадрат!
Популярные вопросы