Паскаль.Дано двузначное число m и некоторое число k.Определить равна ли сумма цифр числа m числу k
5-9 класс
|
Program qq;
uses crt;
var
m,k,a,b,d,c:integer;
begin
readln(m,k);
a:=m mod 10;
b:= (m div 10) mod 10;
c:=(m div 10) div 10;
d:=a+b+c;
if k=d then Writeln('Да') else Writeln('Нет');
Readkey;
End.
Другие вопросы из категории
все элементы нулевые. Если элементов удовлетворяющих условию нет, вывести соответствующее сообщение
В ячейке Е4 находится формула СУММ(А4:D4). Куда она переместится и как изменится при:
а) удалении строки 2;
б) удалении строки 7;
в) вставке пустой строки перед строкой 4;
г) удалении столбца 3;
д) вставке пустого столбца перед столбцом 6.
Читайте также
или во втором сумма цифр этого числа будет равна 9.)
и определяет, изменяется ли сумма цифр этого числа при умножении его
на два. Ответ прикрепите в виде файла в среде PascalABC.
Пример ввода:567.
Пример вывода:сумма цифр числа 567-четное число
№20. Даны величины углов треугольника. Определить является ли это треугольник:
а) остроугольным
б) тупоугольным
в) прямоугольным
г) равносторонним
д) равнобедренным.
№21. Определить, какая из двух точек - M1(x1,y1) или M2(x2,y2) - расположена ближе к началу координат. Вывести на экран дисплея координаты этой точки.
№22. Даны действительные числа a, b, c, x, y. Выяснить, пройдет ли кирпич с ребрами a,b,c в прямоугольное отверстие со сторонами x и y. Просовывать кирпич в отверстие разрешается только так, чтобы каждое из его ребер было параллельно или перпендикулярно каждой из сторон отверстия.
№23. Написать программу, которая печатает True или False в зависимости от того, выполняются или нет заданные условия:
а) квадрат заданного трехзначного числа равен кубу суммы цифр этого числа;
б) сумма двух первых цифр заданного четырехзначного числа равна сумме двух его последних цифр;
в) среди цифр заданного трехзначного числа есть одинаковые;
г) среди первых трех цифр из дробной части заданного положительного вещественного числа есть цифра 0.
раньше: "x" или "e" ? 3) Дана символьная строка . Определить будет ли произведение цифр нечетным числом?