//Sorry I know only C++ language
#include<iostream>
using namespace std;
int main(){
<span> char a,b,c,d,a2,b2,c2,d2;</span><span>
cin>>a>>b>>c>>d;
</span><span> a2=a-48;
</span><span> b2=b-48;
</span><span> c2=c-48;</span><span>
d2=d-48;
</span><span> cout<<(a2+b2+c2+d2)%4;</span>
return 0;}<span>
</span>
Var
ar:array[1..2000] of integer;
n,i,count:integer;
begin
readln(n);
for i:=1 to n do begin
read(ar[i]);
while ((ar[i]>0) and ((ar[i] mod 10)<>4)) do ar[i]:=ar[i] div 10;
if ar[i] mod 10 = 4 then inc(count);
end;
writeln(count);
end.
<span>1 кб=1024 б
</span><span>1 мб=1024 кб=1048576 байт
</span><span>1Гб=1024 мб= 1048546
</span><span>кб=1073741824 кб</span>
Около 1.5 мегапикселя
Так как в одном мегапикселей 1 миллион пикселей
Program N1;
Uses Crt;
var n,s,c:real;
begin
clrscr;
write('Введите числа. Конец ввода 0: ');
n:=1;s:=0;c:=0;
while (n<>0) do
begin
readln(n);
if (n=0) then break;
if (n>0) then
begin
s:=s+n;
c:=c+1;
end;
end;
writeln('Сумма чисел:',s);
writeln('Среднее арифметическое:',s/c);
readkey;
end.
Program N2;
Uses Crt;
var n,s,c:real;
begin
clrscr;
write('Введите числа. Конец ввода 0: ');
s:=0;c:=0;
repeat
readln(n);
if (n=0) then break;
if (n>0) then
begin
s:=s+n;
c:=c+1;
end;
until (c=0);
writeln('Сумма чисел:',s);
writeln('Среднее арифметическое:',s/c);
readkey;
end.