, с информатикой, вот такое вот задание: Из натурального трехзначного числа удалить заданную цифру. Число и цифру вводить с клавиатуры.
Пытаюсь написать программу, но что-то в ней не так - кто знает, подскажите, что именно, вот мой код для решения:
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.
109
461
Ответы на вопрос:
Популярно: Информатика
-
ГульшатГайипова200608.10.2022 09:11
-
dhristenko819.11.2021 16:39
-
DaniilEzhov03614.10.2020 17:17
-
zeynalova7916.10.2020 00:46
-
Владислав1535115.03.2023 08:24
-
9854123g21.11.2022 07:31
-
masha09111501.04.2022 22:39
-
Щкх08.01.2021 07:25
-
ирпимрпмро14.06.2023 10:32
-
Vitoriofedorov11.09.2022 23:41