Ответ.
Меню
Задать вопрос!
Вход
Регистрация
Задать вопрос!
Меню
Все категории
Фотография и видеосъемка
Знания
Другое
Гороскопы, магия, гадания
Общество и политика
Образование
Путешествия и туризм
Искусство и культура
Города и страны
Строительство и ремонт
Работа и карьера
Спорт
Стиль и красота
Юридическая консультация
Компьютеры и интернет
Товары и услуги
Темы для взрослых
Семья и дом
Животные и растения
Еда и кулинария
Здоровье и медицина
Авто и мото
Бизнес и финансы
Философия, непознанное
Досуг и развлечения
Знакомства, любовь, отношения
Наука и техника
dmax33
[7]
3 года назад
5
Дано четырехзначное число. Вывести на экран каждую цифру отдельно(программа pascal)
Знания
Информатика
Ответить
Комментировать
Отправить
1
ответ:
грэгори
3 года назад
0
0
Var
A:integer;
Begin
WriteLn('Введите четырёхзначное число');
ReadLn(A);
WriteLn(A div 1000,' ',(A div 100) mod 10,' ',(A div 10) mod 10,' ',A mod 10);
End.
Отправить
Читайте также
Как число 1267(8) перевести в (10)
supervizor [54]
(1*8^3)+(2*8^2)+(6*8^1)+(7*8^0)
0
0
3 года назад
Прочитать ещё 2 ответа
Даны действительные числа A, B, C. Проверить, выполняются ли неравенства A<B<C, если да, то, присвоить A=B+C, иначе A=C-B.
Ольга Алтухова [116]
Program gt;
var A,B,C:real;
begin
readln(A,B,C);
if(A<B)and(B<C)then A:=B+C else A:=C-B;
writeln(A,' ',B,' ',C);
end.
0
0
4 года назад
Создать базу данных «Авиарейсы аэропортов Москвы», содержащую следующую информацию. Рейс 311 до Санкт-Петербурга вылетает каждый
Ксения Соболева
Во вложении - рабочая книга MS Excel-2003
0
0
3 года назад
Помогите решить эти 3 номера:
Евгения Юрьевна [14]
1072->20603171->61431000->0011 1110 1000
0
0
3 года назад
Прочитать ещё 2 ответа
Помогите срооочно прошу очень
afloriam [6]
Вот у меня с видимыми и невидимыми формулами: (См ниже)
0
0
3 года назад
Смотрите также:
Помогите пожалуйста.Для проверки нужно прислать коды программ и результаты их работы.(если вам будет удобно, пришлите именно скр
8
·
1 ответ
Определите десятичный ASCII-код символа «v», если известны следующие коды: A - 65, V - 86, a - 97
7
·
1 ответ
Приведите различные примеры графических информационных моделей
7
·
1 ответ
Поставьте галочку напротив двух верных утверждений для использования облачных технологий. 1.Отсутствует возможность совместно
5
·
1 ответ
На какую цифру оканчивается запись десятичного числа 125 в системе счисления с основанием 6? Решите пж
15
·
1 ответ
Написать программу, определяющую состоит ли трехзначное число из одинаковых цифр.Подсказка: в материалах урока есть программа по
5
·
1 ответ
Решите от 11 до 13 вопроса
5
·
1 ответ
Нужна помощь очень срочно...
5
·
1 ответ
Даны три числа a b c Найти их произведение
14
·
1 ответ
Изобретение технологии изготовления бумаги в Китае
12
·
1 ответ
×
Добавить ответ
Отправить
×
Вход
E-mail
Пароль
Запомнить меня
Войти
Не зарегистрированы?
Пройти быструю регистрацию
×
Регистрация
Ваше имя
E-mail
Пароль
Зарегистрироваться
close
Вход
Регистрация
Задать вопрос!