Определить количество натуральных двухзначных чисел, сумма цифр которых равна целому числу n

@Temnota · Регистрация: 18.03.2013

Author24 — интернет-сервис помощи студентам

Здравствуйте, помогите пожалуйста написать программы на языке паскаль.Заранее благодарю.
1) определить количество натуральных двухзначных чисел, сумма цифр которых равна целому числу n(0=<n=<27).

Комментарий модератора

Эх, Temnota, в одной теме должна быть только одна задача, название темы должно быть информативным, отражать суть задания. Читайте правила

@BAAAAAas · 12.05.2013, 22:04

Pascal

uses crt;
var c,i,k: integer;
begin
write('Задайте число: ');
readln(c);
write('Количество двухзначных чисел, сумма цифр которых равна ',c,': ');
for i:=10 to 99 do
    if (i div 10 )+(i mod 10)=c
       then inc(k);
write(k);
end.

	12.05.2013, 22:04

Определить количество натуральных двухзначных чисел, сумма цифр которых равна целому числу n

Решение