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
Неверно
1) 4 Мбайт
2)13.5 Кбайт
3)10 бит
4)12 строк
5) 25 Кбайт
6)8 Мбайт
P.S программа написана для Pascal.
program summa;
var
a, b, s : integer;
begin
writeln('Введите число a=');
read(a);
writeln('Введите число b=');
read(b);
s:=0;
for a:=a to b do
if a mod 3=0 then
s:=s+a;
writeln('Сумма: ',s);
end.
101010 + 1110 = 111000
1010 + 1111 = 11001
1000 + 1011 = 10011