Var A,B,i : Integer;
Begin
Readln(A,B);
For i:=A to B do Writeln(Sqr(i));
end.
*****************C case*****************
Var
a:integer;
<span>Begin </span>
<span> Write('Введите число от 5 до 9: '); readln(a); </span>
<span> case a of </span>
5:writeln('Вы ввели число "пять"');
6:writeln('Вы ввели число "шесть"');
7:writeln('Вы ввели число "семь"');
8:writeln('Вы ввели число "восемь"');
9:writeln('Вы ввели число "девять"')
end;
readln
End.
*****************С if*****************
Var
a:integer;
Begin
Write('Введите число от 5 до 9: '); readln(a);
if a=5 then writeln('Вы ввели число "пять"');
if a=6 then writeln('Вы ввели число "шесть"');
if a=7 then writeln('Вы ввели число "семь"');
if a=8 then writeln('Вы ввели число "восемь"');
if a=9 then writeln('Вы ввели число "девять"');
readln
<span>End.</span>
Если утверждать что всегда применяется - то неверно вообще.
Но то что для кодирования больших и малых букв латинского алфавита 26*2 = 52 < 64 = 2^6 как видим достаточно 6 бит
Если же брать старые ASCII кодировки, то действительно использованый набор кодировался 7 битами, но вмещал не только латинский алфавит, но цифры, и другие символы
<span>Мальчик, увлекающийся лёгкой атлетикой, рассказывает о новостях спорта Лёше и Саше;
Лёгкая атлетика - не Саша и не Лёша => остаются: Юра, Виталий или Антон
</span>
<span><span>Виталий не занимается лёгкой атлетикой, как Антон;
Лёгкая атлетика - не Антон и не Виталий => остался: Юра</span>
Юра - атлет
В отличие от Саши, его сестра умеет плавать;
Саша - не плаванье => остаётся: борьба, гимнастика, гребля
Саша, гимнаст и мальчик занимающийся греблей - друзья;
Саша - не гимнастика и не гребля = > остаётся борьба
Саша - борец
Антон и Лёша никогда не посещали бассейн;
Плаванье - не Антон и не Лёша => остался: Виталий
Виталий - пловец
Лёша, в отличие от Антона, умеет держать в руках вёсла.
Лёша - гребец
Антон - гимнаст
Итого:
</span>
Юра - атлет
Саша - борец
Виталий - пловец<span>
Лёша - гребец
Антон - гимнаст</span>