var a,s:integer;
begin
s:=0;
writeln('Введите числа');
repeat
readln(a);
if (a>9)and(a<99) then
s:=s+a;
until a=0;
writeln(s);
end.
Program zz;
var a:integer;
begin
readln(a);
a:=a mod 10;
if a mod 2=0 then writeln(a,' -четное число')
else writeln(a,' -нечетное число');
<span>end.</span>
1.Если дракону сто лет или меньше, то у него 3N голов. Если ему больше ста лет, то у него 300+2(N-100) голов.
2.Высказывание: «Число A является положительным» на языке Pascal записывается как присваивание логической переменной f математического эквивалента (A > 0)
1. Скорее всего нет, так как за 36 лет появилось много новых дорог и возможно исчезло множество старых. Поэтому отношение актуальной информации к устаревшей будет очень мало
2. 0.0625 гигабайт и 1048576, но мне кажется в условии должно быть наоборот, большее число в гигабайты, меньшее в мегабайты, тогда получится 64 мегабайта и 1024 гигабайта
1110011012<span> = 1∙2</span>8+1∙27+1∙26+0∙25+0∙24+1∙23+1∙22+0∙21+1∙20<span> = 256+128+64+0+0+8+4+0+1 = 461</span>10
<span>Получилось: </span><span>46110</span><span>
</span>Результат перевода:
<span>1110011012 = 461<span>10</span></span>