profile
Опубликовано 6 лет назад по предмету Информатика от vita22

составить программу на языке Паскаль числа по возрастанию.

  1. Ответ
    Ответ дан 09031997

    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.
Самые новые вопросы