Простые типы данных. Найти первые две цифры числа

@Юляшка Л. · Регистрация: 14.06.2012

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

1 Дано натуральное число:
− найти две первые цифры числа;
− верно ли, что первая цифра данного числа - четная.

@ermolay · 14.06.2012, 17:26

1.

Pascal

var
  str: string;
  i,x: integer;
begin
  write('Введите натуральное число: ');
  readln(str);
  writeln('1-я цифра числа: ',str[1]);
  writeln('2-я цифра числа: ',str[2]);
  val(str[1],i,x);
  if i mod 2=0 then 
    writeln('1-я цифра числа четная') else
      writeln('1-я цифра числа нечетная');
  readln;
end.

@Юляшка Л. 0 / 0 / 0 Регистрация: 14.06.2012 Сообщений: 9
		1
	Простые типы данных. Найти первые две цифры числа 14.06.2012, 17:10. Показов 1142. Ответов 1 Метки нет (Все метки) 1 Дано натуральное число: − найти две первые цифры числа; − верно ли, что первая цифра данного числа - четная. 0

	14.06.2012, 17:26

Опции темы

Простые типы данных. Найти первые две цифры числа

Решение