logo
Войти Регистрация Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
катююсик
катююсик
04.06.2022 14:20 •  Информатика

Составьте программу, которая из введенного с клавиатуры натурального числа удалит все 5 и 1. например, число 55901815 превратиться в 908.

Показать ответ
Ответ:
zaxarenko2018
zaxarenko2018
06.10.2020 10:12
var
a:integer; 

begin 
readln(a); 
writeln(a.ToString.Remove('5','1')); 
end.
0,0(0 оценок)
Популярные вопросы: Информатика
makc0001
makc0001
08.06.2021 10:26
1) Дана процедура-функция: function f (n: integer) : integer; begin if (n=1) or (n=2) then f:=1 else f:=f(n-1)+f(n-2); end. Чему равно f(7)? 2) Параметры, описанные в заголовке...
добропожаловать777
Распечатать таблицу значений y(x) = 6 * x – 4 на промежутке [0; 9] c шагом 0,5. Распечатать обозначает, что таблицу нужно вывести на экран в результате выполнения кода.Все задания...
Arestan
Arestan
30.04.2020 06:38
сделать светофор в QBasic со сменой цветов по времени​...
FLASHSAVITAR
FLASHSAVITAR
19.06.2021 14:07
Для фотографии класса 24 ученика решили расставить в три ряда по 8 человек. Причём в первом и втором ряду должны были находиться только ребята в школьной форме. Но получилось так,...
Saniek34
Saniek34
19.10.2020 05:24
составьте программу, которая для введённого числа находит его квадрат, если оно чётное, или куб, если оно нечётное.​...
Pузик
Pузик
13.10.2020 14:22
Сделайте логическую операцию! ! все хорошо получалось, но в этот раз учительница придралась. информатика...
Marina11231
Marina11231
31.12.2022 19:03
30 на ! напишите программу, которая выполняет циклический сдвиг элементов массива вправо на r элементов.входные данныепервая строка содержит размер массива n . во второй строке...
Katya230606
Katya230606
03.03.2023 00:50
Морфологический разбор слова подиум,веселее,с неба...
Spectator10
Spectator10
03.03.2023 00:50
ответить на вопросы (хотя бы на один)! text: catch me if you can questions: 1. what do you think of frank abagnale? why? 2. was the fbi s decision to release him correct? why?...
VladaDubrovskaя
VladaDubrovskaя
03.03.2023 00:50
Вдвух пакетах 1,3 семян если из одного пакета пересыпать в другой 0,15 кг семян то их станет по ровну. сколько семян было в каждом пакете первоночально?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
О НАС
СООБЩЕСТВО
ПОМОЩЬ
App
.
.
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота