1.Дано целое двузначное число. Написать программу которая находит квадрат суммы его цифр. pascal
5-9 класс
|
program qwerty;
var a, b, c, d:integer;
begin
writeln ('Нахождение квадрата суммы цифр двузначного числа');
writeln ('Введите число ');
readln (a);
b:= a mod 10;
a:= a div 10;
c:= a mod 10;
a:= a div 10;
d:= sqr (b + c);
writeln ('Ответ: ', d)
end.
Другие вопросы из категории
Заполните массив случайными числами от 0 до 4(вывести его на экран) и выведите на экран номера тех элементов, значения которых равны х(х вводится с клавы)
какими свойствами обладает память человека??
чем отличается память человека от памяти человечества????
как люди хранят информацию различных видов?приведите примеры?
тепень введенного числа(дополнительные переменные, кроме А,не использовать.
Ввод А
Вывод А
Читайте также
результат
2.дано целое число.напишите,программу которая выводит на экран последнюю цифру данного числа,затем возводит ее в квадрат и выводит на экран монитора результат
2.Дано 2х значное число составить программу с помощью которой можно отпределить входит ли в это число цифра шесть.
ввести 3 значное число и находит сумму его цифр.
2. Написать программу, которая предлагает ввести 3 значное число и меняет порядок цифр наоборот. (123- 321)
3.Написать программу, которая предлагает ввести три числа с клавиатуры, находит их сумму, произведение и среднее арифметическое.
утро","Добрый день","Добрый вечер", "Спокойной ночи". 2)Написать программу,которая определяет,принадлежит ли точка с координатами (x,y)Заштрихованной области,ограниченной точками(x1,y1)(x2,y2).
арифметического полученных значений.
2. За весну Обломов похудел на p1 кг, за лето поправился на p2 кг, за осень похудел на p3 кг, за зиму поправился на p4 кг. Написать программу, определяющую, похудел или поправился за год Обломов.
3. Написать программу, которая определяет, является ли целое число четным двузначным числом.
4. Даны коэффициенты квадратного уравнения. Написать программу, определяющую его корни