Написать в программе Паскаль:
Дано целое число. Если оно положительное и трехзначное, найти сумму первой и третьей цифры этого числа, в противном случае сообщить, что число нам не подходит.

что такое div?

и mod

div-операция, необходимая для нахождения целой части из числа

mod - соответственно наоборот: нахождения дробной части

Program zadanie;Var a,b,c:integer;Begin Writeln('Введите число'); Readln(a); If (a div 100>0) or (a div 100<0) and (a>0) or (a=0) Then begin b:=a div 100; c:=(a mod 100) mod 10; a:=b+c; Writeln('Сумма=',a); end Else Writeln('Число нам не подходит');End.and-логическое "и"or-логическое "или"