Информатика | 10 - 11 классы
Составить программу на языке Паскаль числа по возрастанию.
Составить программу на языке паскаль : ввести 4 числа и вывести большее из них?
Составить программу на языке паскаль : ввести 4 числа и вывести большее из них.
( срочно).
Составить программу на Паскале сортировки массива по возрастанию?
Составить программу на Паскале сортировки массива по возрастанию.
Составить программу на языке паскаль для преобразования цифр в слова?
Составить программу на языке паскаль для преобразования цифр в слова.
Составить программу, которая составит из двух таблиц 3 - ю, упорядоченную по возрастаннию?
Составить программу, которая составит из двух таблиц 3 - ю, упорядоченную по возрастаннию.
В паскале.
Составить программу вывода любого числа любое заданное число раз в одну строчку?
Составить программу вывода любого числа любое заданное число раз в одну строчку.
Язык программирования : Паскаль.
Составить алгоритм и программу : вывести на экран числа, кратные 2 ( язык Паскаль)?
Составить алгоритм и программу : вывести на экран числа, кратные 2 ( язык Паскаль).
Составить программу с использованием WhileЯзык : Паскаль?
Составить программу с использованием While
Язык : Паскаль.
Составить программу на языке паскаль нохождения площади трапеции?
Составить программу на языке паскаль нохождения площади трапеции.
Извлеките корень (составить программу на языке Паскаль)?
Извлеките корень (составить программу на языке Паскаль).
Составить программу на языке программирования паскаль с 3 и более переменными?
Составить программу на языке программирования паскаль с 3 и более переменными.
На этой странице находится вопрос Составить программу на языке Паскаль числа по возрастанию?. Здесь же – ответы на него, и похожие вопросы в категории Информатика, которые можно найти с помощью простой в использовании поисковой системы. Уровень сложности вопроса соответствует уровню подготовки учащихся 10 - 11 классов. В комментариях, оставленных ниже, ознакомьтесь с вариантами ответов посетителей страницы. С ними можно обсудить тему вопроса в режиме on-line. Если ни один из предложенных ответов не устраивает, сформулируйте новый вопрос в поисковой строке, расположенной вверху, и нажмите кнопку.
Program parampampam ;
uses crt ;
var
i : integer ; {счетчик}
s : integer ;
begin
clrscr ; {очистка экрана}
writeln ('Программа выводит числа от 1 до 99, сумма цифр которых равна числу S') ;
writeln ('Введите число S, от 0 до 18 : ') ;
{ввод числа S с проверкой на корректность}
repeat
readln (s) ;
if (s> ; 18) or (s< ; 0) then
writeln ('Неверный ввод.
Повторите')
until (s< ; = 18) and (s> ; = 0) ;
{вывод нужных чисел на экран (цикл с предусловием)}
for i : = 1 to 99 do
if ((i div 10) + (i mod 10) = s) then {div дает целую часть, mod - остаток от деления}
write (i, ' ') ;
repeat until keypressed ; {пустой цикл для задержки экрана до нажатия клавиши}
end.