Предмет: Информатика, автор: veronikashishkina397

3. Даны натуральные числа п и m. Вычислить произведение п и m без использования операции умножения. 4. Дано натуральное четырехзначное число n. Определить, содержит ли данное число ровно три одинаковых цифры. Например, числа 6766, 5444, 0006, 0060 содержат ровно три одинаковых цифры. 5. Дано натуральное четырехзначное число n(1000<-n<-9999). Определить, является ли оно палиндромом. Например, палиндромами являются числа: 2222, 6116. НУЖНО СРОЧНО ПОМОГИТЕ ПЛИЗ!!!!!! ДАЮ МНОГО БАЛЛОВ!!!!!!!! ​


veronikashishkina397: нужны программы!!!!!!!

Ответы

Автор ответа: vlaDen74
1

Ответ:

3.

var n,m,x:integer;

begin

 readln(n,m);

 x:=n;

 for var i:=1 to m-1 do

 begin

   x:= x+n;

 end;

 writeln(x);

end.

4.

var a1,x,s:integer;

a:array[0..3] of integer;

begin

 

 while (x<1000) or (9999<x) do

   begin

   write('Введите 4езначное число = '); readln(x);

   end;

 

 a1:=10000;

  for var i:=0 to 3 do

begin

  a[i]:= (x mod a1) div (a1 div 10);

  a1:=a1 div 10;

end;

 

if (a[0]=a[1]) and (a[1]=a[2]) and (a[0]<>a[3]) then s:=1;

if (a[0]=a[1]) and (a[1]=a[3]) and (a[0]<>a[2]) then s:=1;

if (a[0]=a[2]) and (a[2]=a[3]) and (a[0]<>a[1]) then s:=1;

if (a[1]=a[2]) and (a[2]=a[3]) and (a[1]<>a[0]) then s:=1;

write('В числе ',x);

if s=1 then write(' есть 3 одинаковые числа')

else write(' нет 3ёх одинаковых чисел');

end.

5.

var a1,x,s:integer;

a:array[0..3] of integer;

begin

 

 while (x<1000) or (9999<x) do

   begin

   write('Введите 4езначное число = '); readln(x);

   end;

 

 a1:=10000;

  for var i:=0 to 3 do

begin

  a[i]:= (x mod a1) div (a1 div 10);

  a1:=a1 div 10;

end;

s:=a[0]+a[1]*10+a[2]*100+a[3]*1000;

write('Число ',x);

if s<>x then write(' не');

write(' является палиндропом');

end.

Похожие вопросы
Предмет: Русский язык, автор: маминад
Предмет: Математика, автор: maksatb478