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

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

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

1.

алг

нач

цел а

ввод а

вывод div (a, 1000), 'тонн'

кон

2.

var x, i: integer;

begin

write ('Введите трёхзначное число: ') ;

readln (x) ;

if (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