//PascalABC.NET
1)
var
num, sum: integer;
begin
sum := 0;
repeat
read(num);
if (num mod 4 = 0) and (num div 1000 = 0) and (num div 100 <> 0) then
sum := sum + num;
until (num = 0);
write(sum);
end.
2)
var
num, max, n, i: integer;
begin
max := 0;
read(n);
for i := 1 to n do
begin
read(num);
if (num mod 10 = 3) and (num > max) then
max := num;
end;
write(max);
end.
Он будет сделан из металла, синие глаза, маленькие ручки и лампочка на голове. Примерно такой:
Value1 = input()
value2 = input()
def compare_value(v1, v2):
if(v1 == v2):
result = "="
elif(v1 > v2):
result = ">"
elif(v1 < v2):
result = "<"
return result
result = compare_value(value1, value2)
print(result)
16*50*32=25600байт
8бит=1байт
25600*1=25600байт
1Кбайт=1024байта
25600:1024=25Кбайт
Var
i, k, n, d: integer;
begin
readln(n);
k := 0;
for i := 1 to n do
begin
readln(d);
{ d:=Random(100); }
if (d mod 10 = 3) then
k := k + 1;
end;
writeln(k);
end.