Дано трехзначное число. Определить какая из его цифр больше, первая или вторая. ПОМОГИТЕ...

+376 голосов
6.0m просмотров

Дано трехзначное число. Определить какая из его цифр больше, первая или вторая. ПОМОГИТЕ С ПАСКАЛЕМ СРОЧНО ДАЮ 45 БАЛЛОВ


Информатика (20 баллов) | 6.0m просмотров
Дан 1 ответ
+82 голосов

Ответ:

Program Pr1;

uses crt;

var a,b,c:integer;

Begin

clrscr;

readln(a);

c:=a mod 10;

a:=a div 10;

b:=a mod 10;

a:=a div 10;

if a>b then writeln('Первая цифра >')

else writeln('Вторая цифра больше');

end.

Объяснение:

(306 баллов)