Program ok;
var
num:integer;
a,b,c:integer;
begin
readln(num);
a:=num mod 10; num:=(num-a)div 10;
b:=num mod 10; num:=(num-b)div 10;
c:=num;
num:=a+b+c;
if num or 1 = num then
writeln('Нечетное') else writeln('Четное');
readln;
<span>end.</span>
begin
var s := ReadlnString('Введите строку:');
for var i := 1 to s.Length do
case s[i] of
'.': s[i] := '0';
'X', 'Х': s[i] := '1'
end;
Println('Двоичный код:', s);
end.
===== PascalABC.NET =====
Вот держите.
Решение в прикрепе.
Задание 1
1.Карандаш
2.Заливка
3.Шрифт
4.Пластик
5.Пипетка
6.Лупа
7.Кисти
12022, 1222, 989, 90899, 9000