Определить, является ли целое число N четным двузначным числом.

@vadim77 · Регистрация: 24.08.2010

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

@Puporev · 05.09.2010, 12:33

Pascal

1 2	if(n mod 2=0)and(n in [10..98]) then write('Это четное двухзначное число') else write('Это число не является четным двухзначным');

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

Pascal

1
2

if(n mod 2=0)and(n div 100=0])and(n div 10>0) then write('Это четное двухзначное число')
else write('Это число не является четным двухзначным');

@Юрик · 18.03.2012, 19:40

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

Pascal

1 2	if(n mod 2=0)and(n in [10..98]) then write('Это четное двухзначное число') else write('Это число не является четным двухзначным');

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

Pascal

1
2

if(n mod 2=0)and(n div 100=0])and(n div 10>0) then write('Это четное двухзначное число')
else write('Это число не является четным двухзначным');

В первой программе промежуток случайно не до 99?

@versa4e · 18.03.2012, 19:46

Юрик, четное.

@Юрик · 18.03.2012, 19:50

versa4e, Точно...спасибо.

@Azat1203 · 02.10.2013, 22:18

Pascal

program pr1;
uses crt;
var n:integer;
begin
clrscr;
writeln('Введите двухзначное четное число n ');
readln(n);
if (n mod 2=0) and (n div 100=0) and (n div 10>0) then
 write('Это четное двухзначное число')
 else
 write('Это число не является четным двухзначным числом');
readkey;
end.

@vadim77 1 / 1 / 0 Регистрация: 24.08.2010 Сообщений: 157
		1
	Определить, является ли целое число N четным двузначным числом. 05.09.2010, 12:25. Показов 29823. Ответов 5 Метки нет (Все метки) Определить, является ли целое число N четным двузначным числом. 0

@versa4e trainspotting 1086 / 486 / 384 Регистрация: 11.11.2010 Сообщений: 773
	18.03.2012, 19:46	4
	Юрик, четное. 1

@Юрик 0 / 0 / 0 Регистрация: 18.03.2012 Сообщений: 11
	18.03.2012, 19:50	5
	versa4e, Точно...спасибо. 0

	02.10.2013, 22:18