Информатика | 5 - 9 классы
Pascal, цикл while или repeat
Ввести число.
Найти наибольшую цифру в записи числа.
Ввести два массива по 10 чисел?
Ввести два массива по 10 чисел.
Найти в каком массиве наибольшее число
(Delphi / Pascal).
Циклы (for and while) в Pascal ABC?
Циклы (for and while) в Pascal ABC.
Помогите решить задачу, пожалуйста.
Составьте программу, которая выводит на экран все двузначные числа, сумма цифр которых четная.
Pascal Ввести четыре числа?
Pascal Ввести четыре числа.
Вывести максимальное.
Pascal, цикл "для", составить программуВвести целое число N?
Pascal, цикл "для", составить программу
Ввести целое число N.
Вывести таблицу умножения для N от 1 до 10.
Написать программу для Pascal - Ввести натуральное число и определить, какие цифры встречаются несколько раз?
Написать программу для Pascal - Ввести натуральное число и определить, какие цифры встречаются несколько раз.
Pascal, цикл While или RepeatВвести число?
Pascal, цикл While или Repeat
Ввести число.
Получить другое число, путем удаления единиц, сохранив порядок следования оставшихся цифр.
Ввести число N?
Ввести число N.
Вывести число, получаемое выписыванием в обратном порядке цифр числа N.
(Например, 1234, результат 4321).
Pascal цикл while или repeat.
Ввести число?
Ввести число.
Вычислить сумму первой и последней цифры.
Pascal цикл while или repeat.
Ввести целое число и определить, верно ли, что в нём ровно 3 цифры?
Ввести целое число и определить, верно ли, что в нём ровно 3 цифры.
Нужно с помощью цикла "while"
Пример :
Введите число :
123
Да
Пример :
Введите число :
1234
Нет.
Ввести натуральное число и определить, какие цифры встречаются несколько раз?
Ввести натуральное число и определить, какие цифры встречаются несколько раз.
ОБЯЗАТЕЛЬНО использовать until, repeat.
Если вам необходимо получить ответ на вопрос Pascal, цикл while или repeatВвести число?, относящийся к уровню подготовки учащихся 5 - 9 классов, вы открыли нужную страницу. В категории Информатика вы также найдете ответы на похожие вопросы по интересующей теме, с помощью автоматического «умного» поиска. Если после ознакомления со всеми вариантами ответа у вас остались сомнения, или полученная информация не полностью освещает тематику, создайте свой вопрос с помощью кнопки, которая находится вверху страницы, или обсудите вопрос с посетителями этой страницы.
Var
n : integer ;
max : byte ;
begin
write ('Введите число : ') ;
readln (n) ;
n : = abs (n) ;
while n>0 do
begin
if (n mod 10)>max then max : = n mod 10 ;
n : = n div 10 ;
end ;
write ('Макс.
Цифра - ', max) ;
end.