Найти наибольшее натуральное число, кратное 13, но не превышающее 5000

@mexx1994 · Регистрация: 11.04.2010

Найти наибольшее натуральное число ,кратное 13 ,но не превышающее 5000...
Заранее спасибо!

@SuPeR XaKer · 16.10.2010, 23:21

Pascal

var
i,max:integer;
begin
i:=1;
max:=-maxInt;
repeat
if (i mod 13=0) and (i>max) then
begin
max:=i;
end;
inc(i);
until i>5000;
writeln(max);
end.

@mexx1994 · 17.10.2010, 07:14 **[ТС]**

мне бы ещё полегче сделать ...

@SuPeR XaKer · 17.10.2010, 10:02

Не по теме:

куда уж легче то...

@Mad_Dog · 17.10.2010, 10:17

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

мне бы ещё полегче сделать ...

Ну, вот сделал... Держи!

Pascal

Var 
  j:word;
Begin
  j:=5000;
  while (j mod 13 <>0) and (j>0) do
    Dec(j);
  writeln(j)
End;

Решение

@mexx1994 1 / 1 / 0 Регистрация: 11.04.2010 Сообщений: 191
		1
	Найти наибольшее натуральное число, кратное 13, но не превышающее 5000 16.10.2010, 23:13. Показов 2002. Ответов 4 Метки нет (Все метки) Найти наибольшее натуральное число ,кратное 13 ,но не превышающее 5000... Заранее спасибо! 0

Опции темы