10010111=
2625252625262626
10000000=2625252525252525
10010010
=262525262525262520
<span>Программа считает сумму последних трех цифр:
<em><u>Pascal:</u></em>
var n:longint;
sum,i:integer;
begin
repeat
write ('N = ');
readln (n):
until (n>=10000) and (n<=99999);
sum:=0;
for i:=1 to 3 do
begin
sum:=sum+(n mod 10);
n:=n div 10;
end;
writeln ('Summa: ',sum);
end.
<u><em>C++:</em></u>
#include <iostream></span>
<span>using namespace std;</span><span>
int main()</span><span>
{
</span><span>
int n,sum = 0;</span><span>
do</span><span>
{
</span><span>
cout <<"N = ";</span><span>
cin >>n;
}
</span><span>
while (n<10000 || n>99999);</span><span>
for (int I = 1; I<=3; I++)</span><span>
{
sum+=n%10;
n/=10;
}
</span><span> cout <<"Summa: " <<sum <<endl;</span><span>
return 0;</span><span>
}</span>
//PascalABC.NET версия 3.2, сборка 1467
//Если программа не запускается, то обновите версию
begin
var m := ArrRandomReal(5, 1, 10); // автоматический ввод данных
Println(m);
Println(m.Aggregate(1.0, (x, y)-> x * y));
end.
1 - Надпись
2 - Эллипс
6 - Распылитель
10 - Масштаб