tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Напишите программу для
Напишите программу для решения с клавиатуры вводится целое 2-значное число ,если число положительное то полочить новое число z c перестановкой цифр исходного числа и вывести число z на экран div и mod
gilewich
3 01.10.2019 01:10
2
Ответы
коко60
09.10.2020 06:43
PascalABC.NET 3.4.2, сборка 1847 от 28.10.2018Внимание! Если программа не работает, обновите версию!
begin
var n := ReadInteger;
if n > 0 then
begin
var z := 10 * (n mod 10) + n div 10;
z.Println
end
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
УмнаяАлиса7621
03.06.2019 23:40
Составьте программу для следующей . за год квартплата работников повышалась дважды. первый раз на 30%, а второй на 40%. год назад семья березовских платила квартплату 80 рублей...
Умару11
03.06.2019 23:40
Даны три точки a(x1,y1) b(x2,y2) и c(x3,y3). определите,будут ли они расположены на одной прямой. напишите алгоритм на паскале . надо...
Дарьялол1
03.06.2019 23:40
Почему программы переводчик успешно переводит деловые документы но не годятся для перевода художественных произведений...
aminazhum
03.06.2019 23:40
Записать в системе счисления с основанием 234 число 235 .в ответе указать только число не указывая основния...
tayasivakova
14.04.2020 14:04
Дан двумерный массив целых чисел. выяснить: а) есть ли четные числа в левом верхнем или в нижнем левом углу; б) есть ли числа, оканчивающиеся нулем, в верхнем правом или в...
Andrey14BLR
14.04.2020 14:03
Выбери верный ответ. Прикладные протоколы — ANM QWERTY ooo HTTP...
ked00p08uz1
08.04.2020 13:44
Введите, что будет выведено в результатевыполнения следующего фрагмента программы:a = 20:b:= 40;if a mod b = b-athen x := 10 else x:=20;writeln (х);...
Хушкьвь
08.04.2020 13:45
1. -x-1, при х 0 у= x, при x=0 x+1, при х 0...
Алиналабвдк
06.04.2021 22:30
Составить процедуру для выполнения расчётов по формуле. Задать три значения x из интервала [-2;2] В диалоге с использованием функции InputBox Написать в excel visual basic...
варечканяшечка
06.04.2021 22:22
В каком городе родился спортсмен, который победил в соревнованиях по шорт-треку на Олимпийских играх в Сочи в 2014 году на дистанции 1000 м? Укажите страну и город через нижнее...
Популярные вопросы
Напишите особенности строения плавников речной форели....
3
Переведите число 123 из десятичной системы счисления в четверичную. Переведите...
2
Девушка высокого роста, как думаете?...
3
Двадцать ! Какое число надо прибавить к 10,25, чтобы сумма была равна разности...
2
Рифма к слову золотое надо ...
2
Возможно у кого-то есть 1-4 вариант этой контрольной, или кто-то знает...
3
учащиеся 1 класса зонимаются в изостудии красочка Занятия начинаются в...
3
В чём особенности родительских прав? Отмечу лучшим! ...
2
5. Рм Перакладзі словазлучэнні на беларускую мову. Складзі тры сказы з...
3
Твір роздум Чи можна пробачити зраду на основі повісті Тарас Бульба ...
3
begin
var n := ReadInteger;
if n > 0 then
begin
var z := 10 * (n mod 10) + n div 10;
z.Println
end
end.