Вычислить произведение первой и последней цифры каждого числа

@Анна З. · Регистрация: 09.03.2012

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

Вводится 10 восьмизначных чисел. Выводить: произведение первой и последней цифры каждого числа. В программе использовать функцию.

Добавлено через 3 часа 20 минут
Я поняла свое идиотство. Впредь буду указывать тему коротко и ясно.
Извините меня. Только сегодня прочитала информацию о том, какие название нельзя давать темам: особенно такого типа, как ПОМОГИТЕ_СПАСИТЕ.
Больше так делать не буду.

@SeryZone · 08.04.2012, 16:58

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
program HELP_1;
 
var
  a: array [1..10] of longint;
  s: string;
  i: integer;
 
function multiply(l: longint): byte;
var
  v1, v2: byte;
  err: integer;
begin
  str(l, s);
  val(s[1], v1, err);
  val(s[8], v2, err);
  multiply := v1 * v2;
end;
 
begin
  writeln('Введите 10 восьмизначных чисел:');
  for i := 1 to 10 do
    read(a[i]);
  for i := 1 to 10 do
    writeln('Произведение первой и последней цифры ', i, ' - го числа: ',multiply(a[i]));
end.

@Dani · 08.04.2012, 17:33

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
function umn (n: longint): longint;
begin
umn:= (n div 100000000) * (n mod 10);
end;
 
var i,m,n: longint;
begin
for i:= 1 to 10 do
 begin
  read (n);
  writeln (n,' - ',umn(n));
 end;
 
end.

@Puporev · 08.04.2012, 18:01

Раздел Free Pascal, и зачем тип Longint?

@Dani · 08.04.2012, 22:03

Не по теме:

Puporev, это вы кому?

@Puporev · 08.04.2012, 22:16

Обоим.

@Dani · 08.04.2012, 22:31

Puporev, по памяти не критично. Если бы, например, массив из 10000000 был, тогда другое дело. А так, можно и так.

@Puporev · 09.04.2012, 06:21

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

по памяти не критично.

Да дело не в памяти просто во Фрее Longint=integer;

@Dani · 09.04.2012, 16:48

Puporev,longint = integer в PascalABC.

Pascal
1
2
3
4
5
var n: integer;
begin
n:= 32769;
write (n);
end.

Этот код у меня выводит -32767. И все правильно, если хотите максимальные значения - есть константы MAXINT и MAXLONGINT

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .

@Анна З. 0 / 0 / 0 Регистрация: 09.03.2012 Сообщений: 45

	Вычислить произведение первой и последней цифры каждого числа 08.04.2012, 14:55. Показов 1450. Ответов 8 Метки нет (Все метки) Вводится 10 восьмизначных чисел. Выводить: произведение первой и последней цифры каждого числа. В программе использовать функцию. Добавлено через 3 часа 20 минут Я поняла свое идиотство. Впредь буду указывать тему коротко и ясно. Извините меня. Только сегодня прочитала информацию о том, какие название нельзя давать темам: особенно такого типа, как ПОМОГИТЕ_СПАСИТЕ. Больше так делать не буду. 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	08.04.2012, 18:01
	Раздел Free Pascal, и зачем тип Longint? 0

@Dani
	08.04.2012, 22:03
	Не по теме: Puporev, это вы кому? 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	08.04.2012, 22:16
	Обоим. 0

@Dani 1406 / 648 / 135 Регистрация: 11.08.2011 Сообщений: 2,299 Записей в блоге: 2
	08.04.2012, 22:31
	Puporev, по памяти не критично. Если бы, например, массив из 10000000 был, тогда другое дело. А так, можно и так. 0

Опции темы