Информатика | 5 - 9 классы
Помогите, пожалуйста!
Паскаль
дано четырехзначное число, заменить нулем максимальную цифру.
Помогите, пожалуйста, составить программу в паскале?
Помогите, пожалуйста, составить программу в паскале!
Дано четырехзначное число заменить в нем наибольшую цифру нулем.
Дано натуральное число?
Дано натуральное число.
Найти максимальную цифру.
В паскале.
Через while.
Найти сумму цифр четырехзначного числа в паскалях?
Найти сумму цифр четырехзначного числа в паскалях.
Задача на Паскаль, Помогите, пожалуйста дано N трехзначное число?
Задача на Паскаль, Помогите, пожалуйста дано N трехзначное число.
Заменить первую цифру на один.
В данном целом числе N, заменить нулями все четные цифры в данном числе?
В данном целом числе N, заменить нулями все четные цифры в данном числе.
Вывести полученное число.
(Паскаль).
Даны три числа, найти максимальное из них и заменить квадратом этого числа?
Даны три числа, найти максимальное из них и заменить квадратом этого числа.
Помогите решить плииз с помощью паскаля.
Дано трёхзначное число?
Дано трёхзначное число.
Найти среди цифр этого числа, максимальное.
Программа в Паскале.
ПАСКАЛЬ, ЗАДАЧИ НА МАССИВЫ?
ПАСКАЛЬ, ЗАДАЧИ НА МАССИВЫ.
ДАНА ПОСЛЕДОВАТЕЛЬНОСТЬ, В КОТОРОЙ ВСТРЕЧАЕТСЯ НУЛЬ.
ЗАМЕНИТЬ НУЛЬ ЦИФРОЙ 8.
СРОЧНОООО?
СРОЧНОООО!
ПОМОГИТЕ ПОЖАЛУЙСТА НАПИСАТЬ ПРОГРАММУ НА ПАСКАЛЕ!
Дано четырехзначное число.
Определить кратно ли четырем произведение его цифр.
Дано натуральное число?
Дано натуральное число.
Найти максимальную цифру.
В паскале.
Через процедуры.
Перед вами страница с вопросом Помогите, пожалуйста?, который относится к категории Информатика. Уровень сложности соответствует учебной программе для учащихся 5 - 9 классов. Здесь вы найдете не только правильный ответ, но и сможете ознакомиться с вариантами пользователей, а также обсудить тему и выбрать подходящую версию. Если среди найденных ответов не окажется варианта, полностью раскрывающего тему, воспользуйтесь «умным поиском», который откроет все похожие ответы, или создайте собственный вопрос, нажав кнопку в верхней части страницы.
Uses crt ;
var a : integer ;
b : array[1.
4] of integer ;
max, i, k, t : integer ;
begin
readln(a) ;
k : = 1 ;
repeat
for i : = k to k do
b[i] : = a mod 10 ;
a : = a div 10 ;
inc(k) ;
until a = 0 ;
max : = 0 ;
for i : = 1 to 4 do
if b[i]> ; max then begin max : = b[i] ; t : = i ; end ;
b[t] : = 0 ;
for i : = 4 downto 1 do
write(b[i]) ;
end.