Написать в программе Паскаль:
Дано целое число. Если оно положительное и трехзначное, найти сумму первой и третьей цифры этого числа, в противном случае сообщить, что число нам не подходит.
Дано целое число. Если оно положительное и трехзначное, найти сумму первой и третьей цифры этого числа, в противном случае сообщить, что число нам не подходит.
Answers & Comments
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-логическое "или"