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