Информатика | 10 - 11 классы
Pascal.
Тема : Циклы С клавиатуры вводится целое произвольное число 1) Вывести на экран первую и последнюю цифру числа.
2) Вывести на экран наибольшую цифру числа 3) Вывести на экран нечетные цифры этого числа.
3. Дано целое трехзначное число А?
3. Дано целое трехзначное число А.
Вывести цифры этого числа на экран в столбик.
Паскаль.
Паскаль, цикл с предусловием while?
Паскаль, цикл с предусловием while.
Вводится целое положительное число.
Найти наименьшую нечетную цифру в числе.
Если в числе нет нечетных цифр, то вывести надпись "В числе нет нечетных цифр".
Запросить с клавиатуры натуральное число n?
Запросить с клавиатуры натуральное число n.
Используя циклы, вывести через пробел n раз на экран цифру 1.
PASCAL ABC, программа?
PASCAL ABC, программа!
Вводится целое положительное число.
Найти наименьшую нечетную цифру в числе.
Если в числе нет нечетных цифр, то вывести надпись "В числе нет нечетных цифр".
С клавиатуры вводится трехзначное число?
С клавиатуры вводится трехзначное число.
Вывести на экран удвоенную цифру единиц Pascal.
Паскаль?
Паскаль.
Вывести на экран квадрат средней цифры пятизначного числа.
Паскаль?
Паскаль.
1. вывести на экран все четные числа от 1 до n.
2. вывести на экран все трехзначные числа.
3. вывести на экран четырехзначные числа оканчивающийся на 7.
4. вывести на экран все трехзначные и двухзначные числа сумма цифр которых равна девяти.
С клавиатуры вводится 5 - значное число?
С клавиатуры вводится 5 - значное число.
Если первая и последняя цифры этого числа четные, вывести на экран "четные", в противном случае вывести "нечетные" помогите пж.
Дано пятизначное число ?
Дано пятизначное число .
Вывести на экран его первую цифру.
Пользователь вводит любое целое число?
Пользователь вводит любое целое число.
Необходимо из этого целого числа удалить все цифры 3 и 6 и вывести обратно на экран.
Перед вами страница с вопросом Pascal?, который относится к категории Информатика. Уровень сложности соответствует учебной программе для учащихся 10 - 11 классов. Здесь вы найдете не только правильный ответ, но и сможете ознакомиться с вариантами пользователей, а также обсудить тему и выбрать подходящую версию. Если среди найденных ответов не окажется варианта, полностью раскрывающего тему, воспользуйтесь «умным поиском», который откроет все похожие ответы, или создайте собственный вопрос, нажав кнопку в верхней части страницы.
Программа на паскале :
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.
Varmaxd, 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.