Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
instajohap091g2
23.01.2021 06:23 •
Информатика
Напишите программу коротая вводит четырехзначное число и вырезать из него первую и последованию цифру .(напитать программу в паскале( free pascal ide или другой ) и qбесик (64 или например: 1234=23 4567=56
Показать ответ
Ответ:
vgnkrvcv
30.09.2020 07:33
Program example;
var b,a,c:integer;
begin
readln(a);
b:=a mod 100;
c:=a div 1000;
a:=c*100+b;
writeln(a);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
khinmy
05.01.2020 06:27
Черепашке был дан для исполнения следующий алгоритм: повтори 16 [вперёд 60 направо 24]. какая фигура появится на экране?...
dfgds1
02.08.2021 09:27
Задания: 1. Напишите вид информации по представления 2 о 298 2 5 7 9 8 7 4 7. б 1. 2. 3. 4....
Катя388891
27.12.2022 11:42
Што за я не могу ответить че за хр.е.нь? ???...
Legendary13
04.05.2020 08:49
Данные задачи на рисунке и нужно найти (Г И К) ИЛИ У Такой во если они не пересекаются, то будет ли это выражение равно нулю? Или же ответ - 350?...
ЯМС
16.02.2021 11:06
в информатике Нужно ответить на во...
nadiasotochka
02.12.2020 10:45
Программирование Зависимость задана функцией y(a,b), в которой одно из выражений y1 = (a+b)*(a-b), y2 = (a*b) является числителем, а другое- знаменателем. В знаменатель становится...
лолКекКострома21
13.06.2020 12:08
Добрый день построить блок - схему...
achreneti21
13.06.2020 12:08
ПОЗЯЗЯ;) (напишите полностью тело программы)ЯЗЫК _ Python Напиши тело программы (не название) в которой будет использоваться фон и на этом фоне нарисован дом....
Натама
17.03.2021 20:38
8 класс запустите программу...
YanaRy
17.03.2021 20:38
Прямоугольный параллелепипед с ребрами 11,22 и 33.Предикат: Vol(a,b,c,v):=Mult(a,b,z),Mult(z,c,v).За...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var b,a,c:integer;
begin
readln(a);
b:=a mod 100;
c:=a div 1000;
a:=c*100+b;
writeln(a);
end.