Информатика | 5 - 9 классы
Pascal ABC.
Дано натуральное число "n".
Составьте программу которая выводит максимальную цифру этого числа.
Составьте программу в Pascal ABC которая выводит на экран числа кратные 2 и 13 в диапазоне от 2 до 150?
Составьте программу в Pascal ABC которая выводит на экран числа кратные 2 и 13 в диапазоне от 2 до 150.
Спасибо заранее.
Дано целое число N?
Дано целое число N.
Составить программу нахождения количества цифр числа (Pascal ABC).
1) дано четырёхзначное число?
1) дано четырёхзначное число.
Вывести максимальную и минимальную цифру.
Pascal abc
2) дано четырёхзначное число.
Что больше : произведение цифр числа или их утроенная сумма.
Pascal ABC.
Составить программу, которая выводит на экран в обратном порядке нечетные числа от 29 до 1 в Pascal ABC?
Составить программу, которая выводит на экран в обратном порядке нечетные числа от 29 до 1 в Pascal ABC.
Составить программу, которая выводит на экран сумму нечетных чисел от 1 до 30 в Pascal ABC.
Дано трехзначное и четырехзначное число?
Дано трехзначное и четырехзначное число.
В каком числе сумма цифр больше?
Напишите, пожалуйста, программу для Pascal.
ABC.
Составьте программу (в Pascal ABC), которая выводит на экран дату в рамке ?
Составьте программу (в Pascal ABC), которая выводит на экран дату в рамке :
Написать программу в которой задано целое число n и выводится каждая его цифра в столбец?
Написать программу в которой задано целое число n и выводится каждая его цифра в столбец.
На ABC.
Pascal.
Дано натуральное число N ?
Дано натуральное число N .
Определить наименьшую и наибольшую цифры данного числа (Pascal ABC).
Дано натуральное число N?
Дано натуральное число N.
Составьте программу, которая выводит все числа от 1 по N, у которых последняя цифра кратная 3.
Дано натуральное число N?
Дано натуральное число N.
Составьте программу, которая выводит все числа от 1 по N, у которых последняя цифра кратная 3.
На этой странице находится ответ на вопрос Pascal ABC?, из категории Информатика, соответствующий программе для 5 - 9 классов. Чтобы посмотреть другие ответы воспользуйтесь «умным поиском»: с помощью ключевых слов подберите похожие вопросы и ответы в категории Информатика. Ответ, полностью соответствующий критериям вашего поиска, можно найти с помощью простого интерфейса: нажмите кнопку вверху страницы и сформулируйте вопрос иначе. Обратите внимание на варианты ответов других пользователей, которые можно не только просмотреть, но и прокомментировать.
Var n, m, a : integer ;
begin
readln (n) ;
While n > ; 0 do begin
a : = n mod 10 ;
if a > ; m then
m : = a ;
n : = n div 10 ;
end ;
writeln (m) ;
end.