Question

Решить 20 ! дано целое число n (0< =n< =9). написать программу, вычисляющую сумму всех двузначных чисел(в записи которых нет цифры n) даны целые числа a и b.написать программу, подсчитывающую сумму двузначных чисел, у которых либо первая цифра равна a, либо вторая цифра равна b. написать программу, определяющую количество трехзначных натуральных чисел, сумма цифр которых равна заданному числу n все через while

Answer 1

Program tak;
var a,b,c,N:integer;
begin writeln('введите число N (0<=N<=9) ');
 readln(N);
 b:=0; 
for a:=99 downto 10 do  begin 
  if (N <> a div 10) and (N <> a div 10) then 
  b:=a+b; 
 end;
 writeln(b);
end.
эт первая

program tak2;
var a,b,c,d:integer;
begin writeln('введите два числа ');
 readln(a,b);
 d:=0; 
for c:=99 downto 10 do  begin 
  if (a = c div 10) or (b = c mod 10) then 
  d:=c+d;
  end;
 writeln(d);
end.
эт вторая