Дано трёхзначное число N. Определить, какая из его цифр больше - первая или последняя. Если цифры равны, то выдать об этом сообщение.

@Vana999 · Регистрация: 28.05.2011

Дано трёхзначное число N. Определить, какая из его цифр больше - первая или последняя. Если цифры равны, то выдать об этом сообщение.записать на Pascal

@Daemon025 · 17.06.2011, 23:14

Pascal

a:=a div 100; //1-ja
b:=b mod 100; //3 -ja
if (a>b) then writeln('1>3')
else if (a<b) then writeln('1<3')
else writeln('1=3');

@lamed · 18.06.2011, 09:56

Pascal

// Дано трёхзначное число N. Определить, какая из его цифр больше - первая или последняя. 
// Если цифры равны, то выдать об этом сообщение.записать на Pascal
var
  n,c1,c3:integer;
begin
  readln(n);
  c1 := n div 100;
  c3 := n mod 10;
  if c1>c3 then
    writeln('Первая больше')
  else if c3>c1 then
    writeln('Последняя больше')
  else
    writeln('Первая и последняя равны');
end.

@Vana999 0 / 0 / 0 Регистрация: 28.05.2011 Сообщений: 33
		1
	Дано трёхзначное число N. Определить, какая из его цифр больше - первая или последняя. Если цифры равны, то выдать об этом сообщение. 17.06.2011, 23:02. Показов 10961. Ответов 2 Метки нет (Все метки) Дано трёхзначное число N. Определить, какая из его цифр больше - первая или последняя. Если цифры равны, то выдать об этом сообщение.записать на Pascal 0

Опции темы

Дано трёхзначное число N. Определить, какая из его цифр больше - первая или последняя. Если цифры равны, то выдать об этом сообщение.

Решение