Напечатать те из двузначных чисел, которые делятся на 4, но не делятся на 6

@Nurlan_300 · Регистрация: 21.10.2013

Помогите решить 2 способами с редпроверкой и постпроверкой условий
Напечатать те из двузначных чисел, которые делятся на 4, но не делятся на 6.

@APALoff · 27.02.2014, 14:38

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

с редпроверкой и постпроверкой условий

Это как?

Pascal

1 2	For i:=10 to 99 do If ((i mod 4)=0) and ((i mod 6)<>0) then Writeln(i);

@volvo · 27.02.2014, 16:31

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

Это как?

Это так:

Pascal

  i := 10;
  while i < 100 do
  begin
    If ((i mod 4)=0) and ((i mod 6)<>0) then Writeln(i);
    inc(i);
  end;
 
  i := 10;
  repeat
    If ((i mod 4)=0) and ((i mod 6)<>0) then Writeln(i);
    inc(i);
  until i = 100;

@APALoff · 27.02.2014, 16:41

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

Это так:

Ты телепат? ТС ни слова не сказал о циклах...

Добавлено через 52 секунды
А ведь можно сделать вообще без циклов.

Добавлено через 4 минуты

Pascal

Procedure Out(N : Integer);
Begin
  If N<100 then
  Begin
    If ((N mod 4)=0) and ((N mod 6)<>0) then Writeln(N);
    Out(N+1);
  End;
End;
 
Begin
  Out(10);
End.

@Nurlan_300 1 / 1 / 0 Регистрация: 21.10.2013 Сообщений: 51
		1
	Напечатать те из двузначных чисел, которые делятся на 4, но не делятся на 6 25.02.2014, 19:02. Показов 2409. Ответов 3 Метки нет (Все метки) Помогите решить 2 способами с редпроверкой и постпроверкой условий Напечатать те из двузначных чисел, которые делятся на 4, но не делятся на 6. 0

Опции темы