, с информатикой, вот такое вот задание: Из натурального трехзначного числа удалить заданную цифру. Число и цифру вводить с клавиатуры.
Пытаюсь написать программу, но что-то в ней не так - кто знает, подскажите, что именно, вот мой код для решения:
program chislo;
var ch, xy, z: integer;
writeln('введите трёхзначное число:');
readln(ch);
writeln('введите цифру, которую нужно удалить из числа:');
readln(x);
if z=ch mod 10 then
begin
xy:=ch div 10;
writeln('полученное двухзначное число равно ', xy);
end;
else if z=(ch div 10) mod 10 then
begin
xy:=(ch div 100)*10+ch mod 10;
writeln('полученное двухзначное число равно ', xy);
else if z=ch div 100 then
begin
xy:=ch mod 100;
writeln('полученное двухзначное число равно ', xy);
end;
else writeln('такой цифры в числе нет');
end.

DirolFix    1   10.03.2021 15:50    9