1. Информатика
  2. Склавиатуры вводится целое

Склавиатуры вводится целое число, содержащее не более 7 цифр. определить максимальную цифру в этом числе. программа pascal abc. нужно использовать цикл с предусловием.

Anastasia2727 Anastasia2727    3   08.07.2019 12:40    0

Ответы
3035111236 3035111236  16.09.2020 14:25
Var a,b,max:integer;
begin
readln(a);
max:=-maxint;
while a>0 do
begin
b:=a mod 10;
a:=a div 10;
if b>max then max:=b;
end;
writeln(max)
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
pashasergo pashasergo  28.10.2020 21:23
Microsofr Access Створити базу даних «Магазин», в якій передбачити збереження в таблиці «Продажі» наступної інформації (назва полів): прізвище продавця; адреса продавця;...
GHTU GHTU  28.10.2020 21:24
Дан Видеофайл, который длится 4 секунды. Известно также, что частота смены кадров составляет 10 кадров в секунду. Каждый кадр представляет собой изображение, имеющее разрешение...
AsuWi AsuWi  27.10.2020 12:49
К координатным устройствам ввода информации относится: веб-камера джойстик наушники...
IgnatBakaev IgnatBakaev  05.06.2019 21:00
Вкаком году появились компьютерные сети и беспроводные сети передачи данных? только годы.....
motorindmitry12 motorindmitry12  05.06.2019 21:10
Написать программу, которая по паролю будет определять уровень доступа сотрудника к секретной информации в базе данных. доступ к базе имеют только шесть человек, разбитых...
valeriargavina valeriargavina  05.06.2019 21:10
Подсчитать сумму четных, не делящихся без остатка на 8 чисел от 5 до 75.по паскалю. надо,заранее : *...
Элника Элника  05.06.2019 21:20
Составьте программу которая выводит на экран пример на умножение двух однозначных чисел,запрашивает ответ пользователя.проверяет его и выводит соответсвующиеся сообщения...
Гулчехра1022 Гулчехра1022  05.06.2019 21:20
Всоревнованиях по прыжкам в длину участвуют 25 спортсменов, с клавиаиуры ввести номер спортсмена и его результат ( номер спортсмена не связан с очередностью). написать...
N1ke1N1kev1ch N1ke1N1kev1ch  05.06.2019 21:20
1)составьте алгоритм вычисления куба всех чётных чисел от 2 до 100 2)составьте алгоритм вычисления суммы кубов всех нечётных чисел от 101 до 301 и обьясните примерно что...
MasterPvP2016 MasterPvP2016  05.06.2019 21:20
Решить по информатике! 1.дана символьная строка. определить, есть ли в строке слово из трех букв. 2.дана строка. определить, есть ли в ней буква s. других данных нет. только...

Популярные вопросы