Информатика | 5 - 9 классы
Написать программу в паскале.
Дано натуральное число Х.
Найти сумму квадратов чётных цифр в числе.
Дано четырехзначное число?
Дано четырехзначное число.
Найти : сумму его цифр.
Написать программу на Pascal'е.
Дано трехзначное число?
Дано трехзначное число.
Найти сумму цифр числа.
(Написать программу на языке Паскаль).
Помогите пожалуйста написать программу?
Помогите пожалуйста написать программу!
Найти сумму чётных чисел в интервале от А до В ( А и В - натуральные числа, А< ; В).
Напишите программу на Паскале?
Напишите программу на Паскале.
Дано натуральное число N.
Найти сумму квадратов всех натуральных чисел от 1 до N.
Составить программу на паскале Дано натуральное число, найти сумму цифр этого числа?
Составить программу на паскале Дано натуральное число, найти сумму цифр этого числа!
Даны натуральные числа m и n?
Даны натуральные числа m и n.
Получить число состоящее из m последних чётных цифр числа n.
Написать программу на Паскале только на Паскале.
Дано четырехразрядное натуральное число, если оно четное, то найти сумму разрядов, если нет - сумму квадратов?
Дано четырехразрядное натуральное число, если оно четное, то найти сумму разрядов, если нет - сумму квадратов.
(кумир или паскаль написать программу полностью).
В четырехразрядном натуральном числе найти сумму разрядов (кумир или паскаль написать программу полностью)?
В четырехразрядном натуральном числе найти сумму разрядов (кумир или паскаль написать программу полностью).
Задача по информатике?
Задача по информатике.
Найти сумму цифр данного целого числа.
Программа.
Паскаль.
Дано трехзначное натуральное число?
Дано трехзначное натуральное число.
Найти разность между заданным числом и суммой его цифр.
Написать рограмму в паскале
ПОЖАЛУЙСТА до завтра нужно.
На этой странице находится ответ на вопрос Написать программу в паскале?, из категории Информатика, соответствующий программе для 5 - 9 классов. Чтобы посмотреть другие ответы воспользуйтесь «умным поиском»: с помощью ключевых слов подберите похожие вопросы и ответы в категории Информатика. Ответ, полностью соответствующий критериям вашего поиска, можно найти с помощью простого интерфейса: нажмите кнопку вверху страницы и сформулируйте вопрос иначе. Обратите внимание на варианты ответов других пользователей, которые можно не только просмотреть, но и прокомментировать.
Var x, d, s : longint ;
begin Writeln('Введите натуральное число : ') ; Read(x) ; s : = 0 ; while x> ; 0 do begin d : = x mod 10 ; if d mod 2 = 0 then s : = s + d * d ; x : = x div 10 end ; Writeln('Сумма квадратов четных цифр равна ', s)
end.
Пример
Введите натуральное число :
14702
Сумма квадратов четных цифр равна 20.