3. в некотором каталоге хранился файл миша.doc, имевший полное имя d: \2015\фио\ миша.doc. в этом каталоге создали подкаталог имя и файл миша.doc переместили в него. укажите полное имя файла после перемещения. 1) d: \2015\фио\ миша.doc 2) d: \2015\фио\ имя\миша.doc 3) d: \2015\имя\ миша.doc 4) d: \имя\фио\ миша.doc
120
413
Ответы на вопрос:
var x, a, b, k: integer;
begin
write('Введите число: ');
readln(x);
write('Введите цифру: ');
readln(a);
b := 0;
k := 1;
while x > 0 do //цикл пока данное число больше 0
begin
if x mod 10 <> a then // сравниваем последнюю цифру данного числа с указанной цифрой
begin // если последняя цифра данного числа не равна указанной цифре
b := b+(x mod 10)*k; // получаем новое число из числа b и последней цифры данного числа умноженной на коэффициент
k := k*10; // увеличиваем коэффициент (единицы, десятки и т.д.)
end;
x := x div 10; // отбрасываем последнюю цифру из данного числа
end;
writeln('Получилось: ', b);
end.
Популярно: Информатика
-
Heda010113.05.2022 05:25
-
YuraJuliya20.05.2022 00:17
-
sasha23020048726.01.2022 08:30
-
slavikelite07411.01.2022 18:48
-
ФамилГасанов02.09.2021 20:28
-
stqz08.07.2021 03:51
-
trol7718.02.2020 15:06
-
ghorddd11.10.2022 02:36
-
ритуа11.04.2021 13:20
-
Keliris15.08.2021 22:13