1. Информатика
  2. Решение в паскале с div и mod

Решение в паскале с div и mod 8 класс. дано четырехзначное число . нужно вычислить квадрат суммы всех цифр. !

YankaUshko YankaUshko    2   15.06.2019 15:30    2

Ответы
Aniri1501 Aniri1501  12.07.2020 18:42
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
lizzili lizzili  17.09.2019 08:50
Дан двумерный массив из двух строк и пятнадцати столбцов. найти минимальную сумму элементов в двух соседних столбцах. , в вузе задали, а я не знаю, как решить, пыталась,...
serjksu serjksu  17.09.2019 08:50
Собрать пазл выполнив алгоритм в котором есть команда деталь n x y...
Ksyusha891 Ksyusha891  17.09.2019 09:00
Какой знак является разделителем между операторами в языке паскаль? 1) точка 2) двоеточие 3)запятая 4)точка с запятой...
Vanek041005 Vanek041005  17.09.2019 09:00
Пусть пользователь вводит 2 целых числа - длины сторон прямоугольника. составьте программу вычисления площади и периметра прямоугольника....
StopXpeople StopXpeople  17.09.2019 09:00
Брошюра содержит 32 страницы, на каждой странице 32 строки, в каждой строке 25 символов. определите информационный объём статьи в кбайтах в кодировке windows-1251,...
PolyMoly1 PolyMoly1  17.09.2019 09:00
Какие строки содержат ошибки? 1) readln (x+y); 2)writeln (x+y); 3)x = 2 * a (присваивание) 4) var a: integer, b: real...
alya5511Аля alya5511Аля  17.09.2019 09:00
Ккакому виду множеств относится множество букв алфавита? а) пустое множество б) конечное множество с) множество из одного элемента д) бесконечное множество...
PAMAGITEPLS228 PAMAGITEPLS228  17.09.2019 09:00
Даны катеты прямоугольника a и b. найти его гипотенузу с и периметр p...
Savasansa Savasansa  17.09.2019 09:00
Найти сумму элементов в двумерном массиве...
karinroy karinroy  17.09.2019 09:00
Что пропущено в программе? program helloworld; begin writeln(‘x, y=? ’); readln ( x, y); x: = x+y; writeln (‘x = ‘ , x); end. 1) ввод данных 2)описание переменных 3)вывод...

Популярные вопросы