В строке вводимой пользователем определить количество цифр находящихся по чётным адресам и вывести и на экран

@НикиНикита · Регистрация: 16.01.2019

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

В строке вводимой пользователем определить количество цифр находящихся по чётным адресам и вывести и на экран, а так же найти произведение данных цифр и вывести результат на экран.

@ZX Spectrum-128 · 25.01.2019, 09:05

Pascal

var
  i, k: integer;
  s: string;
  p: real;
 
begin
  k := 0;
  p := 1;
  writeln('Введите строку: ');
  readln(s);
  for i := 1 to length(s) do
    if (s[i] in ['0'..'9']) and (not odd(i)) then 
    begin
      inc(k);
      write(s[i]:3);
      p := p * strtoint(s[i]);
    end;
  writeln;
  if k <> 0 then
    writeln('Количество цифр: ', k, ', произведение: ', p)
  else
    writeln('Нет таких цифр.');
end.

@НикиНикита 0 / 0 / 0 Регистрация: 16.01.2019 Сообщений: 57
		1
	В строке вводимой пользователем определить количество цифр находящихся по чётным адресам и вывести и на экран 24.01.2019, 19:09. Показов 990. Ответов 1 Метки нет (Все метки) В строке вводимой пользователем определить количество цифр находящихся по чётным адресам и вывести и на экран, а так же найти произведение данных цифр и вывести результат на экран. 0

	25.01.2019, 09:05