Составить программу для задачи ввести трехзначное число и вывести через запятую его отдельные цифры

PascalABC.NET 3.4.0, сборка 1670 от 23.05.2018Внимание! Если программа не работает, обновите версию!1. Самое простое «арифметическое» решениеbegin var n:=Abs(ReadInteger(‘n=’)); // защита от отрицательных чисел Writeln(n div 100,’,’,(n div 10) mod 10,’,’,n mod 10)end.Примерn= 3183,1,82. «Арифметическое» решение с циклом, цифры в обратном порядкеbegin var n:=Abs(ReadInteger(‘n=’)); // защита от отрицательных чисел while n>10 do begin Write(n mod 10,’,’); n:=n div 10 end; Writeln(n mod 10)end.Примерn= 3188,1,33. «Арифметическое» решение с массивомbegin var n:=Abs(ReadInteger(‘n=’)); // защита от отрицательных чисел var a:array[1..3] of integer; var i:=3; while n>0 do begin a[i]:=n mod 10; i-=1; n:=n div 10 end; Writeln(a[1],’,’,a[2],’,’,a[3])end.Примерn= 3183,1,84. Решение с символьной строкойbegin Abs(ReadInteger(‘n=’)).ToString.ToCharArray.Println(‘,’)end.Примерn= 3183,1,8

Добавить свой ответ Ответить на вопрос

Еще вопросы

Источник: znanija.site

10 класс Информатика 15 апреля 2020. Часть 2.

Получить случайное трехзначное число и вывести через запятую все его отдельные цифры. Сделать для программы Паскаль! с помощью функций div и mod

Правильный ответ на вопрос «Получить случайное трехзначное число и вывести через запятую все его отдельные цифры. Сделать для программы Паскаль! с помощью функций div . » по предмету Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант — оцените ответы на похожие вопросы. Но если вдруг и это не помогло — задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!

Новые вопросы по информатике

Объём видеопамяти составляет 100 Кбайт. Графический режим работает в режиме 640 х200 пикселей. Какое максимальное кол-во цветов может содержать палитра?

Переведите число 202 из восьмеричной системы счисления в десятичную

Переведите величины из одних единиц измерения информации в другие: 1 4 Гбайта=? Кбайт 2 217 Мбайт=? Гбайт 3 13 Мбит=? бит 4 27 Гбит=? бит 5 228 бит=? Мбайт 6 227 Гбит=? Мбайт 7 231 Кбайт=? Мбит