Написать в программе Паскаль:

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

Question

Информатика

Элеонора

7 ноября, 01:56

Написать в программе Паскаль:

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

+5

Ответы (1)

Знаете ответ на вопрос?

Иринка · Answer 1

Program zadanie;

Var a, b, c:integer;

Begin

Writeln ('Введите число') ;

Readln (a) ;

If (a div 100>0) or (a div 1000) 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-логическое "или"