Var x, a, b, c, s: integer;
begin
write('Введите число: '); readln(x);
a := x div 100;
b := (x div 10) mod 10;
c := x mod 10;
s := a + b + c;
writeln('Число принадлежит ', a, ' сотне');
if(s mod 2 = 0) then writeln('Сумма цифр четная')
else writeln('Сумма цифр нечетная');
end.
a - сотни
b - десятки
с - единицы
Надеюсь я правильно тебя понял.
По источнику создания;
по степени доступа;
по целевому назначению;
по способу представления и виду носителя;
по форме собственности;
по методу организации и хранения;
по содержанию;
по языковому и национально-территориальному или географическому признаку;
по уровню компетенции и т. д.
Pascal:
program zada4a;
var
a,b,c:integer;
begin
write('Введите число кратному 2') readln(a);
write('Введите число кратному 2') readln(b);
c=a/b;
end.
П0 sin ИП0 1/x + С/П
Для значения 5 выдаёт "-7,5892425 -1".