Вывести на экран наибольшую из первых цифр заданных чисел

@n1ke73 · Регистрация: 26.11.2014

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

1) Вводится 4 числа. Вывести на экран наибольшую из первых цифр заданных чисел. Например, если a=46, b=831, c=2996, d=486, то напечатать число 8.
Использовать процедуру. - Написать на Паскале.

@APALoff · 27.11.2014, 11:57

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Var
  a,b,c,d : Longint;
  
Function FirstNum(k : Longint) : Byte;
Begin
  If k>9 then FirstNum:=FirstNum(k div 10)
    else FirstNum:=k;
end;
 
Function Max(aa,bb : Integer) : Integer;
Begin
  If aa>bb then Max:=aa else Max:=bb;
end;
 
Begin
  { Readln(a,b,c,d); } a:=45; b:=831; c:=2996; d:=486;
  Writeln(Max(Max(FirstNum(a),FirstNum(b)),Max(FirstNum(c),FirstNum(d))));
end.

Добавлено через 36 секунд

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

Использовать процедуру.

Надеюсь, что это не критично и функция тоже подойдет...

@ZX Spectrum-128 · 27.11.2014, 11: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
procedure FirstDigit(n:integer;var q:integer);
begin
  while n>9 do
    n:=n div 10;
  q:=n;
end;
 
var
  max,a,k,i:integer;
 
begin
  max:=0;
  for i:=1 to 4 do
    begin
      write('Введите число: ');
      readln(a);
      FirstDigit(a,k);
      if k>max then
        max:=k;
    end;
  writeln('Максимум: ',max);
  readln;
end.

@vint-81 · 27.11.2014, 12:26

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
var a,b,c,d:longint;
    h:byte;
procedure ch(x,y,z,v:longint;var k:byte);
 function n(f:longint):byte;
 begin
  while f div 10>0 do f:=f div 10;
  n:=f
 end;
begin
 k:=n(x);
 if k<n(y) then k:=n(y);
 if k<n(z) then k:=n(z);
 if k<n(v) then k:=n(v);
end;
begin
 writeln('a,b,c,d=?');
 readln(a,b,c,d);
 ch(a,b,c,d,h);
 writeln(h)
end.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .

@n1ke73 0 / 0 / 0 Регистрация: 26.11.2014 Сообщений: 6

	Вывести на экран наибольшую из первых цифр заданных чисел 26.11.2014, 21:49. Показов 2908. Ответов 3 Метки нет (Все метки) 1) Вводится 4 числа. Вывести на экран наибольшую из первых цифр заданных чисел. Например, если a=46, b=831, c=2996, d=486, то напечатать число 8. Использовать процедуру. - Написать на Паскале. 0