Вывести все четные цифры строки

@Alexanddr · Регистрация: 28.02.2016

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

Дана строка символов, содержащая цифры. Вывести все четные цифры строки.

@ZX Spectrum-128 · 04.05.2017, 18:17

Pascal

var
  s: string;
  i: integer;
 
begin
  s := '123456789';
  for i := 1 to length(s) do
    if not odd(StrToInt(s[i])) then
      write(s[i], ' ');
end.

@Comrade2017 · 07.05.2017, 08:42

Pascal

   program ggg;
    uses crt;
     var
   a:array [1..100] of integer;
   i,n:integer;
  begin
    writeln('bbedite kolishestbo hisel');
    read(n);
   for  i:= 1 to n do
     begin
       write('bbedite heslo:  ');
       read(a[i]);
      end;
      for i:=1 to n do
      if  a[i] mod 2 =0 then 
     begin
        write('hetnie hisla');
        writeln(a[i]);
     end;
  end.

@Puporev · 07.05.2017, 08:49

При чем здесь массивы и числа? По условию задачи вводится строка, содержащая цифры, типа
vgh1kjilki6koi89jki5klo6kll
Нужно вывесим все четные цифры строки, можно так

Pascal

const cc=['0','2','4','6','8'];
...............................
k:=0;
for i:=1 to length(s) do
if s[i] in cc then
 begin
  k:=1;
  write(s[i]);
 end;
if k=0 then write('В строке нет четных цифр');

@Comrade2017 · 07.05.2017, 11:44

одно и тоже

@Puporev · 07.05.2017, 12:01

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

одно и тоже

Это у Вас голова и то что ниже пояса одно и тоже.

@Comrade2017 · 07.05.2017, 12:11

это все одно и тоже

@ZX Spectrum-128 · 07.05.2017, 12:22

У меня неверно решено. Я понял задачу так, что в строке только цифры. Понятно, что если кроме цифр и другие символы, то вылетит с ошибкой.

@Alexanddr 1 / 1 / 0 Регистрация: 28.02.2016 Сообщений: 9
		1
	Вывести все четные цифры строки 04.05.2017, 14:02. Показов 5195. Ответов 7 Метки нет (Все метки) Дана строка символов, содержащая цифры. Вывести все четные цифры строки. 1

@Comrade2017 7 / 7 / 5 Регистрация: 30.12.2016 Сообщений: 100
	07.05.2017, 11:44	5
	одно и тоже 0

@Puporev Почетный модератор 64291 / 47589 / 32740 Регистрация: 18.05.2008 Сообщений: 115,181
	07.05.2017, 12:01	6
	Сообщение от Comrade2017 одно и тоже Это у Вас голова и то что ниже пояса одно и тоже. 0

@Comrade2017 7 / 7 / 5 Регистрация: 30.12.2016 Сообщений: 100
	07.05.2017, 12:11	7
	это все одно и тоже 0

@ZX Spectrum-128 6809 / 4566 / 4819 Регистрация: 05.06.2014 Сообщений: 22,438
	07.05.2017, 12:22	8
	У меня неверно решено. Я понял задачу так, что в строке только цифры. Понятно, что если кроме цифр и другие символы, то вылетит с ошибкой. 0

Опции темы

Вывести все четные цифры строки

Решение