Задача по паскалю: вычислить сумму всех двузначных чисел по условию

[abit]

Сообщение от iceKirito

а можете написать полностью код задачи)

var
  a,i:byte;
  firstDigit,secondDigit:byte;
  S:dword=0;
begin
  Write('Введите цифру [0..9] : '); readln(a);
  for i:=10 to 99 do
  begin
     firstDigit:=i mod 10;
     secondDigit:=i div 10;
     if ((firstDigit<>a) and (secondDigit<>a)) then S:=S+i;
  end;
  Writeln('Сумма = ',S); Readln;
end.

[sanji2010]

uses crt;
var
a,b,n,k: integer;
mas: array [1..1000] of integer;
begin
clrscr;
write('Введите число N не больше 9');
readln(n);
write('Введите нижнюю границу');
readln(a);
write('Введите верхнюю границу');
readln(b);
mas[1]:=a;
for i:=1 to b-a do
begin
if ((mas[i] mod 10)<>n) and ((mas[i] div 10)<>n) do 
k:=k+mas[i];
mas[i]:=mas[i]+1;
end;
write('Сумма равна,k');
end.

Не проверял

[abit]

Сообщение от sanji2010

uses crt;
var
a,b,n,k: integer;
mas: array [1..1000] of integer;
begin
clrscr;
write('Введите число N не больше 9');
readln(n);
write('Введите нижнюю границу');
readln(a);
write('Введите верхнюю границу');
readln(b);
mas[1]:=a;
for i:=1 to b-a do
begin
if ((mas[i] mod 10)<>n) and ((mas[i] div 10)<>n) do 
k:=k+mas[i];
mas[i]:=mas[i]+1;
end;
write('Сумма равна,k');
end.

Не проверял

это жесть))) я даже не знаю откуда начать критику... что не строчка - то клиника...

[Serge_Bliznykov]

Сообщение от sanji2010

sanji2010

Это кошмар!

У меня один только вопрос, а какую, собственно задачу решает (точнее, должен решать) ваш код?!! Откуда взялись границы?! Зачем тут массив?!

Для сравнения посмотрите код (c) abit из пост #11.
Вот он действительно находит сумму всех двухзначных чисел, в десятичной записи которых не присутствует заданная цифра N.