Дана последовательность из 5 символов. Подсчитать сколько раз в ней встречаются знаки арифметических операций

@dmitrydess · Регистрация: 27.06.2016

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

Дана последовательность из 5 символов. Подсчитать сколько раз в ней встречаются знаки арифметических операций (+, -, *, /).

Задание необходимо выполнить использую оператор варианта Case of

Kodzaev · 27.06.2016, 20:23

Pascal

var
  c: char;
  i, a, s, m, d: byte;
 
begin
  for i := 1 to 5 do
  begin
    ReadLn(c);
    case c of
      '+': Inc(a);
      '-': Inc(s);
      '*': Inc(m);
      '/': Inc(d)
    end
  end;
  WriteLn('"+": ', a);
  WriteLn('"-": ', s);
  WriteLn('"*": ', m);
  WriteLn('"/": ', d)
end.

@Semikola · 28.06.2016, 17:21

Pascal

const N = 5;
var c:char;
i,k:smallint;
begin
  for i:= 1 to N do begin
    read(c);
    case c of
    '+','-','/','*': k:= k + 1;
    end;
  end;
  writeln(k);
end.

@dmitrydess 0 / 0 / 0 Регистрация: 27.06.2016 Сообщений: 1
		1
	Дана последовательность из 5 символов. Подсчитать сколько раз в ней встречаются знаки арифметических операций 27.06.2016, 20:17. Показов 2007. Ответов 2 Метки нет (Все метки) Дана последовательность из 5 символов. Подсчитать сколько раз в ней встречаются знаки арифметических операций (+, -, *, /). Задание необходимо выполнить использую оператор варианта Case of 0

	28.06.2016, 17:21

Опции темы

Дана последовательность из 5 символов. Подсчитать сколько раз в ней встречаются знаки арифметических операций

Решение