Вводить целые числа до тех пор, пока последовательность чисел является знакочередующейся

@crasyman · Регистрация: 29.04.2016

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

Написать программу, которая вводит с клавиатуры целые числа до тех пор, пока последовательность чисел является знакочередующейся. Посчитать количество элементов, кратных 7.

Программку готова, но надо, чтоб запоминала числа, кратные 7 и выводила их

Pascal

Var i,i1,n:integer;
Begin
  n:=0;
  writeln('введите число');
  readln(i);
  While(i=0) do begin
                  If(i=0) Then begin
                                writeln('введите число');
                                readln(i);
                               end; 
                end;
    if (i mod 7 = 0) Then inc(n);            
  Repeat
    i1:=i;
    writeln('введите число');
    readln(i); 
    if (i mod 7 = 0) Then inc(n); 
  Until i1*i>0;
  Writeln('Кол-во чисел, кратных 7 = ',n);
End.

@Puporev · 02.11.2018, 21:41

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

чтоб запоминала числа, кратные 7 и выводила их

Зачем? Нужно же только определить их количество.
Иначе нужно завести массив, где хранить эти числа.

@crasyman · 02.11.2018, 21:58 **[ТС]**

Я просто знаю, что препод, этого попросит

@Puporev · 02.11.2018, 22:06

Pascal

Var i,i1,n:integer;
    a:array[1..100] of integer;
Begin
  n:=0;
  writeln('введите число');
  readln(i);
  While(i=0) do begin
                  If(i=0) Then begin
                                writeln('введите число');
                                readln(i);
                               end;
                end;
    if (i mod 7 = 0) Then
     begin
      inc(n);
      a[n]:=i;
     end;
  Repeat
    i1:=i;
    writeln('введите число');
    readln(i);
    if (i mod 7 = 0) Then
     begin
      inc(n);
      a[n]:=i;
     end;
  Until i1*i>0;
  Writeln('Кол-во чисел, кратных 7 = ',n);
  if n>0 then
   begin
    writeln('Это числа');
    for i:=1 to n do
    write(a[i],' ');
   end;
End.

@crasyman · 02.11.2018, 22:47 **[ТС]**

Спасибо, но здесь не выполняется условия знакочередования

Добавлено через 27 минут
А нет, всё норм, спасибо большое

@crasyman · 02.11.2018, 23:37 **[ТС]**

Всё равно какой-то глюк при вводе 0.

@crasyman · 03.11.2018, 00:18 **[ТС]**

Как-то странно, 0 считает числом кратным 7 и знакочередующимся

@Puporev · 03.11.2018, 07:52

Pascal

1	if (i<>0)and(i mod 7 = 0) Then

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	02.11.2018, 21:41	2
	Сообщение от crasyman чтоб запоминала числа, кратные 7 и выводила их Зачем? Нужно же только определить их количество. Иначе нужно завести массив, где хранить эти числа. 0

@crasyman 0 / 0 / 0 Регистрация: 29.04.2016 Сообщений: 19
	02.11.2018, 21:58 [ТС]	3
	Я просто знаю, что препод, этого попросит 0

@crasyman 0 / 0 / 0 Регистрация: 29.04.2016 Сообщений: 19
	02.11.2018, 22:47 [ТС]	5
	Спасибо, но здесь не выполняется условия знакочередования Добавлено через 27 минут А нет, всё норм, спасибо большое 0

@crasyman 0 / 0 / 0 Регистрация: 29.04.2016 Сообщений: 19
	02.11.2018, 23:37 [ТС]	6
	Всё равно какой-то глюк при вводе 0. Миниатюры 0

@crasyman 0 / 0 / 0 Регистрация: 29.04.2016 Сообщений: 19
	03.11.2018, 00:18 [ТС]	7
	Как-то странно, 0 считает числом кратным 7 и знакочередующимся 0

	03.11.2018, 07:52