решение задач в паскале с помощью div и mod 8 класс.
5-9 класс
|
Дано четырехзначное число . Нужно вычислить квадрат суммы всех цифр.
помогите пожалуйста!
var a,sum,i,ii:integer;
begin
sum:=0;
readln(a);
for i:=1 to 4 do
begin
ii:=a mod 10;
a:=a div 10;
sum:=sum+ii*ii;
end;
writeln(sum);
end.
Другие вопросы из категории
Указать информационные модели:
физическая карта
глобус
график зависимости расстояния от времени
макет здания
схема узора для вязания крючком
муляж яблока
манекен
схема метро
экране на 2, а выполняякоманду номер 2, прибавляет к числу на экране 1. Напишите программу, содержащую неболее 5 команд, которая из числа 6 получает число 33. Укажите лишь номера команд.Например, программа 12122 -это программа:Умножь на 2Прибавь 1Умножь на 2Прибавь 1Прибавь 1которая преобразует число 5 в число 24.
Составить программу вычисления куба произведения чётных чисел от единицы до N.
____________________
Для QBasic
Читайте также
алгоритм для решения задачи: Найти действительные корни квадратного уравнения вида ax^2+bx+c=0.
1) найти и вывести сумму его цифр
2) сформировать число, в котором поменяются разряды (допустим будет число 13, нужно сделать, что бы было 31 и т.п.)
II В паскале с помощью генератора случайных чисел получить трехзначное число и определить, является ли оно полимером (например 121 - является, 123 - нет)
1) найти и вывести сумму его цифр
2) сформировать число, в котором поменяются разряды (допустим будет число 13, нужно сделать, что бы было 31 и т.п.)
II В паскале с помощью генератора случайных чисел получить трехзначное число и определить, является ли оно полимером (например 121 - является, 123 - нет)
Даны два целых числа А и В (А меньше В). Найти сумму всех целых чисел от А до В включительно.
Нужно менять саму строку, а не просто символы выводить