Задача 1. Дан вес груза в килограммах (четырехзначное натуральное число). Найти количество полных тонн в нем и вывести на экран.

Задача 2. У трехзначного натурального числа справа зачеркнули одну цифру, какое число получилось? Вывести получившееся число на экран.

Задача 3. (повышенной сложности, по желанию) У двузначного натурального числа приписали разряд сотен справа. Вывести получившееся число на экран. (Например: было число 123, приписали 1 справа, получилось число 1231.)

1. 
алг
нач
 цел а
 ввод а
 вывод div(a, 1000), 'тонн'
кон
2.
var x, i: integer;
begin
write('Введите трёхзначное число: ');
readln(x);
if ( x <100 ) OR ( x>100 ) then writeln('Число не трёхзначное!')
else
begin
i :=x mod 10; write(i)
write(x div 100);
write(x div 10 mod 10);
end;
end.
3.

Было число ав

Стало число 2ав2

Разложим его на разряды

2ав2=2*1000 а*100 в*10 2=2002 100а 10в

По условию задачи это в 32 раза больше исходного двузначного числа ав, т.е.:

32ав=2ав2  ( Число ав тоже разложим на разряды, получим 10а в)

32(10а в)=2002 100а 10в

32(10а в)=2002 10(10а в)

32(10а в)-10(10а в)=2002

22(10а в)=2002

10а в=2002:22

10а в=91

Итак, искомое число 91