Вот, держи
Будут вопросы, обращайся
Uses crt;
var s,i,x : integer;
begin
Read(x);
For i:=1 to 5 do begin
s:=s + (x mod 10);
x:=x div 10;
end;
Write (s);
end.
Язык - ПаскальABC
Если хочешь можешь еще сделать проверку на пятизначное число.
Var
Zn:integer;
Begin
Zn:=2*482734;
Write(Zn);
End.
<u>// PascalABC.NET </u>
<u>// Версия 3.3.5 сборка 1662 (29.04.2018)</u>
begin
var m := ReadArrInteger(10);
var (o, e) := (m.Where(t -> t.IsOdd).Count, m.Where(t -> t.IsEven).Count);
Println(o > e ? 'Нечетных больше' : o = e ? 'Поровну' : 'Четных больше');
end.
<u>Пример:</u>
1 2 3 4 5 6 7 8 10 10
Четных больше
Блок - это диапазон ячеек на листе таблицы Excel. Чаще всего блоки бывают прямоугольными и обозначаются адресами двух ячеек - левой верхней и правой нижней, записанными через":". На рисунке выделены следующие блоки:
B2:D4
A6:D6
F1:F7