Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

PASCAL
Напишите программу: Дана последовательность из N элементов. Найти количество двузначных чисел, в которых одна и только одна из цифр 3ка.

Ответ оставил Гость

вариант решения, если элементы вводятся
var
  n, i, x, s : integer;
  t: string;
begin
  writeln(количество чисел);
  readln(n);
  s := 0;
  for i := 1 to n do
    begin
      writeln(i, число:);
      readln(x);
      if (x > 9) and (x<100)) then
        begin
          t :=  IntToStr(x);
         if (((t[1] = 3) and (t[2] <> 3)) or (t[1] <> 3) and (t[2] = 3))   then s := s+1;
        end;
    end;
    writeln(Ответ ,s)
end.

вариант решения, если элементы заданы массивом
const
n=50
var
  i, x, s : integer;
  t: string;
  m1: array [1..n] of integer;
begin
  s := 0;
  for i := 1 to n do
     begin
      x := m1[i];
      if (x > 9) and (x<100)) then
        begin
          t := IntToStr(x);
         if (((t[1] = 3) and (t[2] <> 3)) or (t[1] <> 3) and (t[2] = 3))   then s := s+1;
        end;
    end;
    writeln(Ответ ,s)
end.