Программа: Какая из трех цифр числа больше?

Задача: Дано трехзначное число. Определить, какая из его цифр больше

  • Первая или последняя
  • Первая или вторая
  • Вторая или последняя

PROGRAM chislo;
	var x,z   :integer;
	var y,w,q :real;
BEGIN
	Write ('Введите трехзначное число: ');
	Read (x);
	y:=x div 100;   {определяем первую цифру y=первая цифра}
	z:=x mod 100;   {определяем вторую и третью цифру z=первая, вторая цифра}
	w:=z div 10;    {определяем вторую цифру w=вторая цифра}
	q:=z mod 10;    {определяем вторую третью q=третья цифра}
  
	WriteLn ('а)Первая или последняя цифра?');
	if y<q 
    then WriteLn ('Последняя цифра больше')
    else WriteLn ('Первая цифра больше');
    
	WriteLn ('б)Первая или вторая цифра?');
	if y<w 
    then WriteLn ('Вторая цифра больше')    
    else WriteLn ('Первая цифра больше');
    
	WriteLn ('в)Вторая или последняя цифра?');
	if w<q 
    then WriteLn ('Последняя цифра больше') 
    else WriteLn ('Вторая цифра больше');
END.

Просмотрело: 2616

Возможно, Вы искали: