Var a,n: integer; s:longint;
begin
s:=0;
n:=0;
readln(a);
while a<>0 do begin
n:=n +1;
if (a mod 2=0) and (a>0) and (a<=256) then s:=s+a;
readln(a);
end;
writeln(n);
writeln(s)
end.
#include <iostream>
using namespace std;
int main() {
int n, arr[5];
cin>>n;
arr[0]=n/10000; arr[1]=n%10000/1000;
arr[2]=n%1000/100;arr[3]=n%100/10;
arr[4]=n%10;
n=10000*arr[4]+1000*arr[3]+100*arr[2]+10*arr[1]+arr[0];
cout<<n;
return 0;
}
Монитор является предметом для вывода информации что бы человек мог её видеть , а процессор для задачи этой информации. Процессор главная составляющая компьютера
===== PascalABC.NET =====
begin
var n := ReadInteger;
Println(n div 100 + n mod 10)
end.
<em>// PascalABC.NET 3.3, сборка 1625 от 17.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(13,100,999); a.Println;
var s:=a.Where(t->t.ToString.Contains('2'));
Writeln('Сумма отобранных чисел равна ',s.Sum,
', их количество равно ',s.Count)
end.
<u>Пример</u>
447 568 576 760 708 373 474 764 520 907 654 623 414
Сумма отобранных чисел равна 1143, их количество равно 2