Определить кратно ли введенное число числу 5?

@Final · Регистрация: 13.05.2014

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

Уважаемые кодеры помогите решить задачку по паскалю:

2) определить кратно ли введенное число числу 5?

@JokeR.BY · 13.05.2014, 12:26

Pascal

var
  numb : Integer;
begin
  Write('Vvedite chislo='); Readln(numb);
  if (numb mod 5 = 0) then
    Writeln('Chislo kratno 5')
  else
    Writeln('Chislo nekratno 5');
  Readln;
end.

@APALoff · 14.05.2014, 00:34

Pascal

var  numb : Integer;
begin
  Readln(numb);
  Writeln('Chislo kratno 5: ',(numb mod 5)=0);
end.

@JokeR.BY · 14.05.2014, 02:59

APALoff, а принципиальная разница кода в чём состоит?

@APALoff · 14.05.2014, 10:14

Сообщение от JokeR.BY

APALoff, а принципиальная разница кода в чём состоит?

Просто то же самое, но в два раза короче.

@Final 0 / 0 / 0 Регистрация: 13.05.2014 Сообщений: 2
		1
	Определить кратно ли введенное число числу 5? 13.05.2014, 12:04. Показов 13671. Ответов 4 Метки нет (Все метки) Уважаемые кодеры помогите решить задачку по паскалю: 2) определить кратно ли введенное число числу 5? 0

@JokeR.BY CAPITAL OF ROCK! 1281 / 708 / 982 Регистрация: 03.03.2010 Сообщений: 2,286
	14.05.2014, 02:59	4
	APALoff, а принципиальная разница кода в чём состоит? 0

@APALoff 1646 / 1075 / 1081 Регистрация: 03.07.2013 Сообщений: 4,507
	14.05.2014, 10:14	5
	Сообщение от JokeR.BY APALoff, а принципиальная разница кода в чём состоит? Просто то же самое, но в два раза короче. 0

Опции темы