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

204

278

Посмотреть ответы 2

Ответы на вопрос:

Vika1568393hhhu

Информатика

4,8(28 оценок)

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