7 задач паскаля

[vesper182]

1. Дано трехзначное число. Найти число десятков в нем.
2. Составить программу, печатающую значение true, если указанное высказывание является истин-ным, и false в противном случае, когда хотя бы одно из чисел x, y, z больше 100.
3. Является ли число А делителем числа В А наоборот?
4. Рассчитать сумму налога, которую нужно заплатить, если: за доход до 23350 у.е. берут 15%, за доход до 56550 у.е. – 28%, за доход 117950 у.е. – 31%. В остальных случаях налог 36%.
5. В первый день рабочий произвел х деталей. Во второй и в последующие дни он увеличивал норму предыдущего дня в 2 раза. Сколько деталей он делал каждый день данной недели?
6. Даны натуральные числа N, m. Получить сумму m последних цифр числа n.
7. Дано натуральное число n. Получить все простые делители этого числа.

Помогите хотя бы 3 решить)

[Rififi]

Зачем три? лучше сразу всю пачку - мелкий опт получится дешевле.

[IT-man]

3 так 3)

Дано трехзначное число. Найти число десятков в нем.

var x:integer;
begin
readln(x);
writeln((x mod 100) div 10);
end;

Составить программу, печатающую значение true, если указанное высказывание является истин-ным, и false в противном случае, когда хотя бы одно из чисел x, y, z больше 100.

var x,y,z:real;
begin
readln(x,y,z);
writeln( (x>100) or (y>100) or (z>100));
end;

Является ли число А делителем числа В А наоборот?

var a,b:integer;
begin
readln(a,b);
writeln(a mod b=0);writeln(b mod a=0);
end.

Дано натуральное число n. Получить все простые делители этого числа.

function simple (n:integer):boolean;
var i:integer;
begin
simple:=true;
for i:=2 to round(sqrt(n)) do
if n mod i=0 then begin  simple:=false; exit; end;
end;
 
var i,n:integer;
 
begin
write('n=');
readln(n);
for i:=1 to n do
if (n mod i=0) and (simple(i)) then writeln(i);
end.

Рассчитать сумму налога, которую нужно заплатить, если: за доход до 23350 у.е. берут 15%, за доход до 56550 у.е. – 28%, за доход 117950 у.е. – 31%. В остальных случаях налог 36%.

var x:Real;
begin
readln(x);
if x<23350 then writeln(x*0.15)
else if x<56550 then writeln(x*0.28)
else if x<117950 then writeln(x*0.31)
else writeln(x*0.36);
end.