Pascal. тема: циклы с клавиатуры вводится целое произвольное число 1) вывести на экран первую и последнюю цифру числа. 2) вывести на экран наибольшую цифру числа 3) вывести на экран нечетные цифры этого числа

253

491

Посмотреть ответы 3

Ответы на вопрос:

ilgam2000

Информатика

4,4(93 оценок)

Var maxd,n,m,lst: integer; begin { считываем с экрана } readln(n); maxd: =0; { последняя цифра } lst: =n mod 10; { цикл по количеству цифр в числе } while true do begin m: =n mod 10; if (m mod 2 =1) then writeln('нечет. цифра = ',m); if maxd < m then maxd: =m; n: =n div 10; if (n=0) then begin writeln('первая цифра = ',m); break; end; end; writeln('последняя цифра = ',lst); writeln('максимальная цифра = ',maxd); end.

elisavetafolst

Информатика

4,4(91 оценок)

Программа на паскале: var number, firstdigit, lastdigit, maxdigit: longint; begin read(number); lastdigit : = number mod 10; write('нечетные цифры числа: '); while number > 9 do begin if number mod 2 = 1 then write(number mod 10, ' '); if number mod 10 > maxdigit then maxdigit : = number mod 10; number : = number div 10; end; if number mod 2 = 1 then write(number); if number mod 10 > maxdigit then maxdigit : = number mod 10; firstdigit : = number; writeln; writeln('первая цифра числа - ', firstdigit); writeln('последняя цифра числа - ', lastdigit); writeln('наибольшая цифра числа - ', maxdigit); end.

самая29

Информатика

4,8(8 оценок)

var a,b: integer;

begin

readln(a);

for i: =2 to a do

begin

if a mod i == 0 do

begin

println(i);

a: =a/i;

end;

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.