Написать в программе Паскаль: Дано целое число. Если оно положительное и трехзначное,...

Question

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

Answer 1

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-логическое "или"

Comments

что такое div?

---

и mod

---

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

---

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

---

спасибо большое)