1. дан вес груза в килограммах (четырехзначное натуральное число). найти количество полных тонн в нем и вывести на экран. 2. у трехзначного натурального числа справа зачеркнули одну цифру, какое число получилось? вывести получившееся число на экран. 3. (повышенной сложности, по желанию) у двузначного натурального числа приписали разряд сотен справа. вывести получившееся число на экран. (например: было число 123, приписали 1 справа, получилось число 1231.)
алг
нач
цел а
ввод а
вывод 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