Даны стороны кирпича: m,n,k и размеры отверстия a,b. пройдёт ли этот кирпич в отверстие?
252
485
Ответы на вопрос:
Var a,b,c,d: integer; begin writeln('введите число'); //запрос числа readln(a); d: =a; //это для красоты while (a< > 0) do begin //пока мы не дойдём до последней цифры в числе делать следующее b: =a mod 10; //берём последнюю цифру числа c: =c+b; //находим сумму цифр a: =a div 10; //убираем из данного числа последнюю цифру end; writeln('сумма цифр числа ',d,' = ',c); // вывод результата end.
Популярно: Информатика
-
olga83724.10.2021 07:33
-
nastya274719.09.2022 10:51
-
2002anna207.02.2023 23:27
-
ниро426.05.2022 18:53
-
zarasabaka03.04.2020 11:40
-
ZhannaMeer16.05.2021 02:35
-
Ученик2017gmailcom28.12.2021 02:17
-
Юлия364025.02.2023 04:12
-
Zelka2019913.05.2021 13:02
-
nastya20030203320.03.2022 15:07