Как найти среднюю цифру числа паскаль

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

1) Число N содержит нечетное количество цифр. Определить среднею цифру числа.

Код к задаче: «Определить среднею цифру числа»

textual

uses crt;
var
  s:string;
begin
  writeln('Введите число с нечетным кол-вом цифр:');
  readln(s);
  if (Length(s))mod(2)<>0 then
    begin
      Write('Средняя цифра чиса: ',s[(length(s))div(2)+1]);
    end
      else
        writeln('Введено число с четным кол-вом цифр!');
  readln;
end.

Полезно ли:

14   голосов , оценка 4.071 из 5

2 / 2 / 0

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

Сообщений: 78

1

Определить среднею цифру числа

19.02.2013, 19:49. Показов 2981. Ответов 1


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

1) Число N содержит нечетное количество цифр. Определить среднею цифру числа.



0



Sckrejjet

Кодинг – это искусство…

64 / 64 / 42

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

Сообщений: 156

19.02.2013, 21:15

2

Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Это несложно

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
uses crt;
var
  s:string;
begin
  writeln('Введите число с нечетным кол-вом цифр:');
  readln(s);
  if (Length(s))mod(2)<>0 then
    begin
      Write('Средняя цифра чиса: ',s[(length(s))div(2)+1]);
    end
      else
        writeln('Введено число с четным кол-вом цифр!');
  readln;
end.



1



Program red;
var a,b:string;
begin
readln(a);
readln(b);
if ord(a[1])<ord(b[1]) then writeln(a)
else writeln(b);
end.

8710-2 = 8708
8708 = 4*7*311
десятичное число  8710  в  системах счисления с основаниями:
N1 =4;  N2=7;  N3 =28
будет   иметь не менее трёх цифр и оканчиваться на 2 

1)A && B
2)!A && !B
3)A && !B
4)A && !B
ну как-то так
если не знакомы с с/с++ и т.п.
то && = and в паскале
! = not в паскале

3*260=780(руб) – стоят все 3 книги
780-600=180(руб)-не хватает

600-100%
180-х%

НИЖЕ – ДРОБЬ

х=100*180
    _______
      600
х=зо
ОТВЕТ : минус 30%

2a 3b 4b 5b 6d 7c 8b 9a

Перейти к контенту

Вычислительная техника и дискретная математика

Дано трехзначное число. Вычислить среднее арифметическое его цифр.

Решение:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

program line_7;
uses crt;
var
a: integer;
sr: real;
begin
clrscr;
write(‘a = ‘); readln(a);
sr:=0;
sr:=sr+(a div 100);
sr:=sr+(a mod 10); a:=a div 10;
sr:=sr+(a mod 10);
write(‘Среднее арифметическое цифр = ‘, sr/3:4:2);
readkey;
end.

Рейтинг

( Пока оценок нет )

Перейти к содержанию

Среди трех чисел найти среднее

Просмотров 28к. Обновлено 15 октября 2021

Вводятся три разных числа. Найти, какое из них является средним (больше одного, но меньше другого).

Проверить, лежит ли первое число между двумя другими. При этом может быть два случая:

  • первое больше второго и первое меньше третьего,
  • первое меньше второго и первое больше третьего.

Если ни один из вариантов не вернул истину, значит первое число не среднее. Тогда проверяется, не лежит ли второе число между двумя другими. Это может быть в двух случаях, когда

  • второе больше первого и меньше третьего,
  • второе меньше первого и больше третьего.

Если эти варианты также не вернули истину, то остается только один вариант — посередине лежит третье число. Это при условии, что никакие два числа из трех не могут быть равны между собой. Иначе и здесь надо использовать логические выражения.

Pascal

даны три числа найдите среднее паскаль


var
a1, a2, a3: integer;

begin
write ('Введите три числа: ');
readln (a1, a2, a3);

if ((a1 > a2) and (a1 < a3)) or ((a1 < a2) and (a1 > a3)) then
writeln(a1)
else
if ((a2 > a1) and (a2 < a3)) or ((a2 < a1) and (a2 > a3)) then
writeln(a2)
else
writeln(a3);

end.



Введите три числа: 3 5 4
4

Язык Си


#include < stdio.h>
main() {
int a, b, c;
scanf("%d%d%d", &a,&b,&c);
if (a > b && a < c || a < b && a > c)
printf("%dn", a);
else
if (b > a && b < c || b < a && b > c)
printf("%dn", b);
else
printf("%dn", c);
}



110 111 109
110

Python

найти среднее число из 3 чисел Python


print('Введите три числа: ')
a = int(input())
b = int(input())
c = int(input())

if b < a < c or c < a < b:
print('Среднее:', a)
elif a < b < c or c < b < a:
print('Среднее:', b)
else:
print('Среднее:', c)



Введите три числа:
453
244
901
Среднее: 453

Basic-256


print "Введите три числа: "
input a
input b
input c
print "Среднее: ";
if a > b and a < c or a < b and a > c then
print a
else
if b > a and b < c or b < a and b > c then
print b
else
print c
endif
endif



Введите три числа:
45
60
54
Среднее: 54

Добавить комментарий