1) var a,b:integer; begin readln(a,b); writeln('Сумма единиц: ',a mod 10+b mod 10); writeln('Сумма десятков: ',(a div 10) mod 10+(b div 10) mod 10); end.
2)var a:integer; begin readln(a); if a mod 2=0 then writeln('Делится на 2') else writeln('Не делится на 2'); if a mod 3=0 then writeln('Делится на 3') else writeln('Не делится на 3'); if a mod 5=0 then writeln('Делится на 5') else writeln('Не делится на 5'); end.
3)var a,b,c:integer; begin readln(a); c:=a; while a>0 do begin b:=10*b+a mod 10; a:=a div 10; end; writeln(c-b); end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Подскажите как эти клавиши произносятся на ecs, enter, shift, caps lock, control, alt, backspace, delete, insert, home, end, page up, page down, num lock. .