Var a,s:integer;
begin
write('a = ');
readln(a);
s:=a div 10 + a mod 10;
writeln('s = ',s);
if s mod 2 = 0
then writeln('Верно')
else writeln('Неверно');
end.
Пример:
a = 25
s = 7
Неверно
Это магнитный диск. Раньше он так и назывался - магнитный диск, сейчас жесткий диск или винчестер.
Операционка устонавливается на локальный диск с
7210 / 2 = 3605 (0)
3605 / 2 = 1802 (1)
1802 / 2 = 901 (0)
901 / 2 = 450 (1)
450 / 2 = 225 (0)
225 / 2 = 112 (1)
112 / 2 = 56 (0)
56 / 2 = 28 (0)
28 / 2 = 14 (0)
14 / 2 = 7 (0)
7 / 2 = 3 (1)
3 /2 = 1 (1)
1/2 = 0 (1)
записываем остатки в обратном порядке и получаем
1110000101010