Программа: Операции с четырехзначным числом

Задача: Дано четырехзначное число. Определить:

  • Равна ли сумма двух первых его цифр сумме двух его последних цифр?
  • Кратна ли трем сумма его цифр?
  • Кратно ли четырем произведение его цифр?
  • Кратно ли произведение его цифр числу а?

PROGRAM chislo4;
	var x,z,q,y,w,e,r,sum,proi,a  :integer;
BEGIN
	Write ('Введите четырехзначное число: ');
	Read (x);
	y:=x div 1000;      {определяем первую цифру y=первая цифра}
	z:=x mod 1000;      {определяем вторую, третью, четвертую цифру z=вторая,третья,четвертая цифра}
	w:=z div 100;       {определяем вторую цифру w=вторая цифра}
	q:=z mod 100;       {определяем вторую третью q=третья, четвертая цифра}
	e:=q div 10;        {определяем третью e=третья цифра}
	r:=q mod 10;        {определяем четвертую r=четвертая цифра}
	WriteLn ('Цифры наоборот: ',r,e,w,y);
    
	WriteLn ('a) Равна ли сумма первых двух цифр двум последним? ');
		if y + w = e + r 
    	then WriteLn ('Равна') 
    	else WriteLn('Не равна');
    
	WriteLn ('б) Кратна ли трем сумма его цифр? ');
	sum := y + w + e + r;            {сумма всех цифр}
		if sum mod 3 = 0             {проверяем кратность суммы цифр к 3}
		then WriteLn ('Сумма всех цифр кратна 3')
		else WriteLn ('Сумма цифр не кратна 3');
    
	WriteLn ('в) Кратно ли четырем призведение его цифр? ');
	proi := y * w * e * r;
		if proi mod 4 = 0            {проверяем кратность произведения цифр к 4}
		then WriteLn ('Произведение всех цифр кратно 4')
		else WriteLn ('Произведение цифр не кратно 4');
    WriteLn (proi);
    
	WriteLn ('Введите число чтобы проверить кратно ли произведение ему:');
	Read (a);
		if proi mod a = 0            {проверяем кратность a}
		then WriteLn ('Произведение всех цифр кратно ',a)
		else WriteLn ('Произведение всех цифр не кратно ', a);
END.

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

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