Слово Александр занимает 72 бит
===== PascalABC.NET =====
function sogl(c: char) :=
not (c.ToUpper in ('АЕЁИОУЫЭЮЯ'));
// проверка функции
begin
var s := 'ТестируемРусскийАлфавит';
foreach var c in s do
Print(sogl(c));
end.
На самом деле все это будет правильно работать лишь если функции давать исключительно русские буквы.
Var a,b,c: real;
begin
readln (a);
readln (b);
readln (c);
if (a mod 5)=0 then
writeln (a);
if (b mod 5)=0 then
writeln (b);
if (c mod 5)=0 then
writeln (c);
end.
1.Для написания,редактирования текста
2.Да можно
3. .doc .txt .epub .fb2 djview .pdf
4. .doc
5.точно не скажу:)
1. Примером чисел, которые принадлежат данной области и ошибочно не учитываются данной программой являются числа в 3й четверти выше y=x, например, (-0.5, -0.1), а также в 1-й четверти, например, (1, 1)
2. Программа на Паскале прилагается.