Написать программы (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. Ввести четырехзначное число. Вывести отдельно цифры этого числа
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.