сервис вопросов и ответовНаписать программу, выдающую результат - равна ли сумма цифр введенного положительного числа 10 с защитой от неверного ввода. (неверный вод-если сумма
5-9 класс|
|
не равна 10 то программа должна заново спросить какие числа он хочет ввести) Делать в Turbo Pascal
Elviravp
10 авг. 2015 г., 6:56:52 (8 лет назад)
Arigabom
10 авг. 2015 г., 9:38:33 (8 лет назад)
function sum (n : integer) : integer;
begin
sum := 0;
while n > 0 do
begin
sum := sum + n mod 10;
n := n div 10;
end;
end;
var
a : integer;
begin
repeat
writeln ('a = ');
read (a);
until sum (a) = 10;
writeln ('OK');
end.
Janee68
10 авг. 2015 г., 11:17:56 (8 лет назад)
var
a,a1,a2:integer;
begin
repeat
writeln (' Введите число');
readln (a);
a1:=a div 10;
a2:=a mod 10;
until (a1+a2=10);
writeln ('Верно ');
end.
Ответить
Другие вопросы из категории
Напишите программу в паскаль,пожалуйста
Введите с клавиатуры фамилию имя и отчество какого либо человека, как одну переменную строкового типа найдите самое длинное слово и определите количество букв "о" в нём.
Решила изучить информатику,но раньше в школе как-то не занималась ей особо(поверхностно так).Учусь в 11 классе.
На курсы запишусь,но хотела бы дома сама начать изучать в интернете темы самостоятельно.
Не знаю как и с чего начать.Не могли бы помочь с планом изучения информатики.Последовательность этих тем.
Дизайны,программирование и так далее
Читайте также
Составьте программу,которая определяет,является ли сумма цифр введенного целого трехзначного числа четным числом.
Пример ввода:567.
Пример вывода:сумма цифр числа 567-четное число
1. Даны два различных вещественных числа X и Y. Написать программу, возведения наименьшего из чисел в квадрат, наибольшего – в куб и нахождения среднего
арифметического полученных значений.
2. За весну Обломов похудел на p1 кг, за лето поправился на p2 кг, за осень похудел на p3 кг, за зиму поправился на p4 кг. Написать программу, определяющую, похудел или поправился за год Обломов.
3. Написать программу, которая определяет, является ли целое число четным двузначным числом.
4. Даны коэффициенты квадратного уравнения. Написать программу, определяющую его корни
Помогите плиз срочно 1)Написать программу,которая спрашивает"Который час?" и,в зависимости от введенного времени,выводит приветствие:"Доброе
утро","Добрый день","Добрый вечер", "Спокойной ночи". 2)Написать программу,которая определяет,принадлежит ли точка с координатами (x,y)Заштрихованной области,ограниченной точками(x1,y1)(x2,y2).
Вы находитесь на странице вопроса "Написать программу, выдающую результат - равна ли сумма цифр введенного положительного числа 10 с защитой от неверного ввода. (неверный вод-если сумма", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.