1)циклический
3)разветляющий
2)линейный
Begin
for var v := 100 to 150 do begin //возраст от 100 до 150 лет
var q := Sqr(StrToInt(IntToStr(v)[1])) //Суммируем квадраты каждой цифры
+ Sqr(StrToInt(IntToStr(v)[2])) //из возможного возраста
+ Sqr(StrToInt(IntToStr(v)[3])); //и записываем его в q
for var d := 1 to 31 do begin //Берем день месяца от 1 до 31
if (q + d) = v then begin //Если q + день = возрасту
println('День:', D, ' Возраст: ', v); //Выводим сообщение
end;
end;
end;
end.
1. Для кодирования одного из 64 цветов требуется log(2)64 = 6 бит (2^6=64).
Объем информации в своде законов:
512*256*6 бит = 512*256*6 / 8 байт = 512*256*6 / (8*1024) Кбайт = 96 Кбайт
2. 128 Кбайт = 128*1024 байт = 128*1024*8 бит
Память для одного пикселя: 128*1024*8 / (512*256) бит = 8 бит
Количество цветов = 2^8 = 256
Begin
var ar := arrrandom(30, 1, 20);
ar.Println;
writeln(ar.Where(x -> x mod 2 = 0).Sum);
var a := readinteger;
write(ar.Where(x -> x > a).Count);
end.