Question

Написать программы (PASCAL) для следующих задач:

1. Вычислить остаток от деления A на D, где A=234 D=43, A=1024 D=59, A=71 D=6.

2. Ввести число с клавиатуры. в введенном числе
найти первый знак и возвести его в 3 степень.

3. Вычислить целую часть от деления G на R, где G=511 R=2, G=24 R=5, G=384 R=20.

4. Ввести четырехзначное число. Вывести отдельно цифры этого числа

Answer 1

1.

var x,a,d:integer;

begin

 write('Введите А= '); readln(a);

 write('Введите D= '); readln(d);

 x:=a mod d;

 writeln('Остаток= ',x);

end.

2.

var x:integer;

begin

 write('Введите x= '); readln(x);

 while x>9 do

 begin

   x:= x div 10;

 end;

 x:= x*sqr(x);

 write(x);

end.

3.

var x,g,r:integer;

begin

 write('Введите G= '); readln(g);

 write('Введите R= '); readln(r);

 x:=g div r;

 writeln('Целая часть= ',x);

end.

4.

var x,a1:integer;

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

begin

 a1:=10000;

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

   begin

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

   end;

 for var i:=0 to 3 do

 begin

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

   a1:=a1 div 10;

   writeln(a[i]);

 end;

end.