Program p1;
var a:integer;
begin
a:=random(89)+10;
writeln('a= ',a);
writeln('Summa tsifr= ',a mod 10+a div 10);
writeln('4islo naoborot= ',a mod 10, a div 10);
<span>end.
program p2;
var a:integer;
begin
a:=random(899)+100;
writeln('a= ',a);
if (a mod 10)=((a div 100) mod 10) then writeln('POLIMER')
else writeln('NE POLIMER');
end.</span>
Плюсы компьютерных словарей
1. Не нужно искать словарь в библиотеке.
2. Не надо искать слово в некольких словарях.
3. Не пропустишь слово, которое ищешь.
4. Есть большой выбор словарей.
5. Легко можно найти толкование.
1) 28 байт.
2) (8 * 32 * 64 * 2) / 1024 = 32 Кбайт.
3) 8 * 512000 = 4096000 бит = 512 000 байт = 500 Кбайт.
Чем больше "И" (&), тем меньше результат.
Чем больше "ИЛИ" (|), тем больше результат.
Ответ: ВБГА.
Var
s:string;
begin
readln(s);
writeln(s[3]);
<span>end.</span>