Question

Написать на паскале: Из чисел от 10 до 99 вывести те, сумма цифр которых равна s (s>0; s<18) Cрочно!

Answer 1

Var i,s:integer;
begin
write('s = '); readln(s);
for i:=10 to 99 do
 if (i div 10)+(i mod 10)=s then write(i,'  ');
writeln;
end.

Пример:
s = 10
19  28  37  46  55  64  73  82  91  

Answer 2

//Pascal ABC.NET 3.1 сборка 1219

begin
 var a:=ReadInteger();
 writeln(range(10,99).where(x -> (x mod 10)+(x div 10)=a));
end.

Пример ввода:
13
Пример вывода:
[49,58,67,76,85,94]

Answer 3

Код на языке Паскаль для решения данной задачи выглядит следующим образом:

program SumOfDigits;

var
  i, num, digit1, digit2, sum: Integer;
  s: Integer;

begin
  writeln('Числа от 10 до 99, сумма цифр которых равна s (s > 0; s < 18):');
  
  write('Введите значение s: ');
  readln(s);
  
  writeln('Числа:');
  
  for i := 10 to 99 do
  begin
    num := i;
    digit1 := num mod 10; // получаем первую цифру числа
    digit2 := num div 10; // получаем вторую цифру числа
    sum := digit1 + digit2; // считаем сумму цифр
    
    if sum = s then
      writeln(i);
  end;
  
  readln;
end.

Объяснение кода: 1. Объявляем переменные `i, num, digit1, digit2, sum` для работы с числами и их цифрами, а также переменную `s` для хранения значения суммы цифр. 2. Считываем значение `s` с помощью `readln`. 3. В цикле `for` перебираем числа от 10 до 99. 4. Для каждого числа выполняем следующие действия: - Записываем число в переменную `num`. - Получаем первую цифру числа `digit1` с помощью операции остатка от деления на 10. - Получаем вторую цифру числа `digit2` с помощью операции целочисленного деления на 10. - Считаем сумму цифр числа и записываем результат в переменную `sum`. - Если сумма цифр равна `s`, выводим число на экран с помощью `writeln`. 5. Завершаем программу с помощью `readln`.

После запуска программы она предложит ввести значение `s`. После ввода значения `s` программа выведет на экран все числа от 10 до 99, сумма цифр которых равна введенному значению `s`.