Как найти вторую цифру числа паскаль - Исправление недочетов и поиск решений вместе с Examum.ru

rmil
	1
26.04.2010, 16:55. Показов 12463. Ответов 5 дано натуральное число n. Найти вторую цифру числа n.

Programming Эксперт 94731 / 64177 / 26122 Регистрация: 12.04.2006 Сообщений: 116,782	26.04.2010, 16:55
5

DeLuxe

156 / 158 / 93

Регистрация: 01.01.2010

Сообщений: 398

26.04.2010, 17:06

Pascal

uses crt;
var n:longint;
st:string;
begin
clrscr;
readln(n);
str(n,st);
write('Вторая цифра числа ',n,': ',st[length(st)-1];
readkey;
end.

~~pavelr~~

Заблокирован

26.04.2010, 17:11

Вторую с начала или с конца?

rmil
26.04.2010, 17:19	4
просто найти вторую цифру числа n

~~pavelr~~

Заблокирован

26.04.2010, 17:23

Если вторую с начала,то

Pascal

while n>10 do
begin
l:=n mod 10;
n:=n div 10;
end;
writeln('L=',l);

Puporev

Почетный модератор

64287 / 47586 / 32739

Регистрация: 18.05.2008

Сообщений: 115,182

26.04.2010, 17:33

Pascal

uses crt;
var n:longint;
    k:byte;
begin
clrscr;
write('n=');
readln(n);
if n<10 then
 begin
  write('В числе нет 2 цифр');
  readln;
  exit;
 end;
if n in [10..99] then k:=n mod 10
else
 begin
  while n>100 do
  n:=n div 10;
  k:=n mod 10;
 end;
write('Вторая цифра=',k);
readln
end.

Добавлено через 5 минут
Комбинированный вариант pavelr, + Puporev

Pascal

uses crt;
var n:longint;
    k:byte;
begin
clrscr;
write('n=');
readln(n);
if n<10 then
 begin
  write('В числе нет 2 цифр');
  readln;
  exit;
 end;
while n>10 do
 begin
  k:=n mod 10;
  n:=n div 10;
 end;
write('Вторая цифра=',k);
readln
end.

Источник

Формулировка задачи:

дано натуральное число n. Найти вторую цифру числа n.

Код к задаче: «Найти вторую цифру числа n.»

textual

uses crt;
var n:longint;
    k:byte;
begin
clrscr;
write('n=');
readln(n);
if n<10 then
 begin
  write('В числе нет 2 цифр');
  readln;
  exit;
 end;
while n>10 do
 begin
  k:=n mod 10;
  n:=n div 10;
 end;
write('Вторая цифра=',k);
readln
end.

Полезно ли:

15 голосов , оценка 3.800 из 5

Источник

nastikots

Ответ:

program z1;

var a: integer;

begin

write(‘Введите целое трёхзначное число: ‘);

readln(a);

write (‘Вторая цифра числа ‘,a div 10 mod 10 )

end.

Объяснение:

a div 10 mod 10 — средняя цифра числа

div — целочисленное деление

mod — остаток от целочисленного деления

2 votes
Thanks 1

Источник

Дано натуральное число. Найти вторую (с начала) цифру данного число. нужно записать на Паскале.

Найти вторую (с начала) цифру данного число. нужно записать на Паскале.

цифра
число
паскаль

Источник

Как найти первые две цифры натурального числа в паскале?

На странице вопроса Как найти первые две цифры натурального числа в паскале? из категории Информатика вы найдете
ответ для уровня учащихся 5 — 9 классов. Если полученный ответ не
устраивает и нужно расшить круг поиска, используйте удобную поисковую
систему сайта. Можно также ознакомиться с похожими вопросами и ответами
других пользователей в этой же категории или создать новый вопрос. Возможно,
вам будет полезной информация, оставленная пользователями в комментариях, где
можно обсудить тему с помощью обратной связи.

Источник