сервис вопросов и ответовПОЖАЛУЙСТА Составьте программу, запрашивающую 4-х значное число. И выходящую на экран сообщение :"Тысяч_, сотен_, десятков_, единиц_".Применяя функции
5-9 класс|
|
деления (Div и Mod)
2.Составьте программу делящую переменную А=100 на 3. Деление прекратить когда остаток А будет меньше 3. Подсчитать количество вариантов деления и вынести значение на экран.
Krestttt
20 июля 2013 г., 14:07:57 (10 лет назад)
Resurrectionemia
20 июля 2013 г., 14:41:10 (10 лет назад)
1.
var s,a,b,c,d:integer;
begin
readln(s);
a:=s div 1000;
b:=s div 100 mod 10;
c:=s div 10 mod 10;
d:=s mod 10;
writeln('Тысяч ',a,' Сотен ',b,' Десятков ',c,' Единиц ',d);
end.
2.
var k,a:integer;
begin
a:=100;
while a>=3 do begin
a:=a div 3;
k:=k+1;
end;
writeln(k);
end.
Ответить
Другие вопросы из категории
(35 БАЛЛОВ!!!)Составить программу, которая по координатам точки(x,y) пересечения прямых, разрезающих квадрат со стороной p вычисляет отношение сторон
полученных
прямоугольников (a/b,a1/b1,a2/b2,a3/b3)
расположите носители информации по возрастанию максимального объема информации, которая может быть на них записана
1 hd dvd-диск
2 cd-диск
3 dvd-диск
4 дискета
5 blu-ray-диск
Читайте также
Даны числа a,b,c. Составить программу, выводящую на экран сообщение, в зависимости от того какой треугольник можно построить с такими длина сторон:
равносторонний,равнобедренный или какой либо другой.
Вот ещё одна
Составить программу:Даны а,b,c-целые числа.Если они большн 0-вычислите сумму их квадратов;а если хотя бы одно из них четно-вычислите их сумму и произведение.
Пожалуйста ребят.
1.Дано целое число составить программу которая определяет оканчивающие данное число цифрой семь.
2.Дано 2х значное число составить программу с помощью которой можно отпределить входит ли в это число цифра шесть.
Очень надо!! пожалуйста)Составить программу на языке Pascal, которая позволяет ввести с клавиатуры целое трехзначное число, проверяет, симметрично ли оно,
и печатает сообщение на экране. (Трёхзначное число симметрично, если крайние цифры числа одинаковые)
Помогите по программе paskal : 1.дано целое число.напишите программу которая уменьшает на 2 модуль этого числа и выводит на экран монитора
результат
2.дано целое число.напишите,программу которая выводит на экран последнюю цифру данного числа,затем возводит ее в квадрат и выводит на экран монитора результат
Вы находитесь на странице вопроса "ПОЖАЛУЙСТА Составьте программу, запрашивающую 4-х значное число. И выходящую на экран сообщение :"Тысяч_, сотен_, десятков_, единиц_".Применяя функции", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.